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The deadline for the next issue is the 
18th of May 2008 


The first issue of a new year is a time to take stock. 2008 could be a difficult QL year, 
especially in the UK. 

Our first news report of the year concerns reduced UK trader activity. In recent years QL 
traders have faced increasing difficulties and it is becoming less and less worthwhile for 
them to attend shows. It is not just a question of finance, but also of time. We could well 
see a further reduction during 2008. 

In this climate QL Today cannot expect to remain unscathed. We are now looking at 
possible changes to ensure the short and medium term future of the magazine. 


| heard a story over the grapevine that a respected trader is about to close his business 
for personal reasons, with a final, month long, closing down sale. Actually this is a true 
Story, but it happened many years ago. The trader concerned was a guy Called Dilwyn 
Jones - you may have heard of him. 

Thirteen years on Dilwyn is no forgotten figure from the past, but has been a distin- 
guished first editor of this magazine, runs the most popular QL website and has a pro- 
lific, and much valued, software output. 

A year before closing down Dilwyn had had the dubious honour of switching off the 
lights in QL World. His advert was the last page of the last issue of the magazine. The 
closure of QL World was seen by many as a harbinger of the imminent death of the QL. 
Two replacements, QReview and IQLR, were short-lived, but eventually out of the ashes 
QL Today emerged. We have survived longer than any other QL publication with the 
exception of the Quanta Magazine. 

When | closed the commercial side of Just Words! last year, there was no loss to the QL 
community other than some QL Today advertising revenue. Instead there was a rewrit- 
ten and expanded website that has been further expanded this year. 

In difficult times we have to stand firm and not be frightened of change. The days of QL 
commercial software are probably at an end, but programming continues. The QL market 
has become too small for new hardware, but at least one trader runs a profitable busi- 
ness in second hand material. Show attendance may be in decline, but we can keep in 
touch via the internet. 

One bright spot is that QL Today understands - strictly off the record - that by the time 
you are reading this Quanta will have some good news for its members, although these 
are still falling in number. 

Quanta now has under 200 members, but its structure, activities and thinking remain 
largely rooted in the time when it had over 2,000. Can Quanta adapt to changing circum- 
stances? There are about 40 reasonably active people within Quanta and given a radical 
reshaping around the needs of these members it could remain a powerful force within 
the QL community. 

For some years Quanta has been the victim of its members’ benign neglect, but the 
immediate danger of its closure in 2009 has been averted. Next year Quanta plans a 
major celebration of the QL’s centenary. Let us set our sights on this celebration and 
use this to get through the dark days of 2008. 


TFS bows out 


QL trader Tony Firshman has asked QL Today to 
withdraw his advertising from the magazine, 
which he had booked for the whole of the pre- 
sent volume. In an email to QL Today he ex- 
plained that increa- 
sing demands on his 
time means he is no 
longer able to gua- 
rantee the quality of 
service to QL users 
an active advertising 
presence would de- 
mand. One order © 
from a client took him 
5 weeks to fulfil : 
Tony Firshman does § 
not intend to close 
TF Services or to 
leave the QL commu- 
nity, but from now on 
he will maintain a lo- 
wer profile. 

There has been some falling off in QL trader acti- 
vity in recent years and QL Today believes this 
could continue during 2008. This changing 
trading pattern could affect the magazine and 
the QL Today team are currently looking at its 
administration, distribution and financing to ensure 
the short and medium 
term future. (A full re- 
port can be found at 
the end in this issue) 
At the end of last 
year Jochen Merz 
software opened 
bank accounts in se- 
veral countries, inclu- 
ding the UK, to facil 
tate transactions with 
QL-ers living outside 
Germany, 

Tony Firshman is the © 
longest serving of 
the current QL tra- 
ders and the origins 
of TF Services go back to the earliest days of 
the QL. The company has become known for 
several innovative QL hardware products. One of 
its earliest lines, launched in 1985, was a power 


cleaner to reduce QL crashes by filtering out 
mains power spikes and surges. A bar code 
reader followed in 1988, but it was not until the 
1990's that TF Services became known for a 
number of products that revolutionised the QL by 
improving its stability and reliability, 
In 1989 QView 
launched the Miner- 
va ROM and TF 
Services was the 
hardware specialist 
_ backing this venture. 
TF Services took 
over the sales in 
1991 and in the 
same year launched 
a MKIl version. The 
following year they 
launched the Her- 
mes chip to replace 
the 8049 co-proces- 
sor which gave the 
a QL more reliable 
serial communications. This was followed in 1995 
by a SuperHermes board giving a fast serial port 
with mouse and keyboard interfaces. A final ver- 
sion of SuperHermes, SuperHermes Lite, was re- 
leased in 1997. 
The same year TF Services announced the 
RomDisq, a flash memory card long before they 
ee became popular on 
ae PCs. Their final hard- 
ware product was 
the MPlane, a low 
profile backplane for 
use in the MinisQL. 
In addition to produ- 
cing hardware TF 
Services was one of 
the first QL traders 
to set up a bulletin 
| board and then, later, 
a website. To many 
| QL users, especially 
those who had a 
simple use of the 
QL, TF Services will 
be remembered as a reliable repairer of their 
systems. One such user described how Tony 
Firshman had serviced 3 QLs, 2 monitors, 2 
keyboards and a printer. 


"Tony's charge was very reasonable for the 
amount of time he spent on my equipment. | will 
be 79 tomorrow and feel that | am now safe for 
the rest of my life” 

In fact Tony's basis price for servicing a QL has 
remained unchanged for over 15 years. 

At the moment Tony's time is heavily taken up 
with the rebuilding of a house in Leighton Buzzard 
and in his day job by Worldnews. He will probably 
only be able to get to QL shows in his near 
vicinity, but promises to continue the show email 
shots. He will also not be reordering components 
when his present stock runs out. This especially 
applies to the SuperHermes and Romdisq as they 
require large minimum orders of the main chips. 


Other Trader News 


QBRANCH 
Roy Wood has closed QBranch's dedicated tele- 
phone and fax lines. He can now be contacted 


on: 

TELEPHONE AND FAX: +44(0) 1273 430501 
SKYPE: royqbranch 

WEB: www.gbranch.demon.co.uk 

Roy has recently been offering second hand QL 
hardware via the QL users email group. 


J-M-S 

Jochen Merz has improved his service to his 
overseas customers by opening bank accounts 
in several countries. He now has accounts in Ger- 
many, Austria, Switzerland, the Netherlands and 
the United Kingdom. 

UK customers can pay by sterling cheque and 
USA customers in dollars. You can find the full 
details, including exchange rates, in the Jochen 
Merz Software advertisement. 


New Web Page 


Just Words! has added a maps page to its web- 
site. The new page has been launched to co- 
incide with the mapping articles in this issue of 
QL Today. The mapping data is in the format 
latitude - space - longitude and can be loaded 
into Hugh Room's program without modification. 
At the moment the page contains mapping data 
for most of the countries where QL Today rea- 
ders live, but Just Words! is hoping to offer a 
"tailor made” service to give mapping data for 
any part of earth. 

Unfortunately website bandwidth restrictions 
means that it is impossible to post the mapping 
data for complete continents on the web page, 


but Just Words! will be making this data available 
on CD for a nominal fee. 

Just Words! has also made some minor changes 
to the site. The downloads page has been re- 
named “Freeware” and the position of links to 
other pages has been moved fo minimise pro- 
blems caused by the pop-up advertising. 


SQLUG Update 


George Gwilt informs us: 

"For 2008 there are three new items on the 

Scottish Users site at: 

http://jms1.supanet.com/ 

1. SMSQ/E A _ simple quick method of 
compiling SMSQ/E v313 using the 
assembler GWASS 

2. EXEG EXEG is a new keyword which is 
like EXEP in that it executes executable 
Things but, unlike EXEP it allows channel 
IDs as well as a parameter string to be 
put on the stack. 

3. TURBO The latest version of TURBO, 
v5.05, allows two retry points, one for a 
WHEN_ERROR 0 clause and the other for 
WHEN_ERROR 1.’ 


Goodbye Netscape 


Netscape, one of the most popular web brow- 
sers among QL-ers, is no longer being supported 
by the owners AOL and Time Warner. Their sup- 
port ceased on ist February this year This 
means there will be no more upgrades. 
Netscape was the original web browser and 
many of its supporters believe that without it the 
internet would not have come into being. How- 
ever it slowly lost market share to Microsoft who 
integrated Internet Explorer into the Windows 
package. However the spirit and technology of 
Netscape will live on as its supporters have now 
developed the Firefox browser. 


Last year 42% of people visiting the Just Words! 
website were Netscape users compared with 
53% Internet Explorer and 5% Opera. 


LEAR PCB CAD Update 


Dilwyn Jones has informed us of a further update 
to this program: 

"Version 6.39 of Malcolm Lear's PCB Cad pro- 
gram is now available from Dilwyn Jones's web- 
site. The most significant change is that you 
now have the option of running the program as 
a daughter job. The biggest advantage is a 
complete cleanup on termination which includes 
all functions and procedures loaded on program 
bootup.” 

The package is a 914KB download from: 
http://www.dilwyn.uk6.net/graphics/index.html 


QDT back on Track 


Jim Hunkins resumed work on QDT at the 
beginning of February, which he had to suspend 
following an accident last year In an email to QL 
Today he writes: 

‘Work on the FileManager for QDT has re- 
sumed, albeit slowly. My recovery from my se- 
vere accident last Fall has proceeded well 
enough that | can now spare some energy and 
time and therefore have resumed work on the 
project just this last week. No promises on 
dates as my paying job is even more time con- 
suming that the previous year but the project 
will get completed.’ 


No Go LINUX 


At QL Today we do not know if Norman Dunbar 
got what he wanted from Santa, but we do know 
he was not granted his New Year wish. On the 
QL-users group he had a sad tale to tell: 
"Windows ate my laptop recently Over the 
festive period my XP system, fired up for the 
first time in absolutely ages, removed my Linux 
root drive (partition) without so much as a 
by-your-leave.” 

Norman decided to metaphorically throw Win- 
dows out of the window and set up a completely 
Linux laptop, but his troubles were not at an end: 
"This of course, leaves me with a slight problem. 
When | go away, | usually take the laptop to 
watch DVDs, listen to my music, read ‘books’ 
etc, but also for QPC and my ongoing Assem- 
bly Language series. To this end, and | can al- 
most hear Marcel! groaning right now, I'm won- 


dering what the possibility of getting a Linux 
version of QPC is? 

Do | hear the work ‘slim’ or even ‘no chance at 
all’ out there?” 

Marcel did indeed react using rather stronger 
language and outlined some of the problems 
involved: 

"Well, step 1 would be to get the whole assem- 
bler stuff compiling under Linux, which given 
that Linux uses a completely different syntax 
for everything assembler (AT&T style versus 
Intel style) would be quite a feat in itself Not to 
say practically impossible. 

lt might be more sensible to continue using a 
Windows assembler and hoping that the Linux 
linker can cope with the resulting object format. 
Not sure how well that would work out. 
Portability wasn't really high up in the list {or 
even ON the list at all) of criteria for QPC’'s 
code and it shows. Due to historical reasons 
many parts are still mostly assembler though 
over the years some parts migrated a bit to the 
C side of things. Most are a mix of both. All in 
all many things would probably have to be 
rewritten from scratch. If | rewrote QPC today it 
would be much different, but many of the 
design decisions were done when | was 15 or 
so, for much less powerful machines. 

lf you want to give it a try, that could probably 
be arranged. It would certainly be fun to have a 
Linux version, at least if | have nothing to do 
with it whatsoever But quite frankly | think life is 
too short to even try’ 

Last year Wolfgang Lenerz wrote an article for 
QL Today on using QPC under Linux (Vol. 11 issue 
4 page 15), but this is not entirely satisfactory. 
Wolfgang used software called wine which al 
lows some windows programs to run under 
Linux, but Norman was unable to get this work- 
ing satisfactorily because of character repetition 
problems. Marcel commented that wine is a bit 
overwhelmed by QPC and perhaps Cedega 
would be better However he thought the best 
performance could be achieved by running 
Windows in a virtual machine like VMWare. 

There was a lengthy discussion on the QL-user 
group which did not provide a solution to Nor- 
man’s problem. QL Today will be pleased to have 
an update to Wolfgang's article if and when the 
Linux specialists have made some progress. 


QUANTA News 


At the time of writing QL Today has not had 
details of the papers for the Quanta AGM 


ae 
: = 


because these will not become available to 
members until after our deadline date. We hope 
to have a full news report in issue 4 as well as an 
account of the Manchester show and AGM. 


However we understand that there is good news 
from Quanta who are anticipating some new 
committee members. We are unable to report 
further details in this issue because the Quanta 
committee strongly feels their members should 
be first informed of these via the Quanta Maga- 
zine. QL Today respects Quanta's wishes in this 
respect. 

Meanwhile Quanta’s Manchester subgroup have 
accidentally scored a home goal in their plans for 
the workshop and AGM in April. One of the big 
problems for Manchester workshops is hotel ac- 
commodation when Manchester United are play- 
ing at home, and the AGM is planned for the only 
weekend in April when Manchester United has a 
home game. To make matters worse the op- 
ponent is Arsenal, who are rivalling Manchester 
United for the top of the Premier League. 

The Manchester subgroup has told QL Today 
that their hands were tied on the matter The 
AGM could not be held earlier because the 
financial reports would not be available, and then 
the weekend of 12th and 13th April was the only 
time the scout hut was free. The subgroup is 
making active enquiries of a family hotel near the 
show venue to see if they can accommodate a 
Quanta party. A member who stayed at the hotel 
two years ago gave it favourable reports. 


Website Update 


Bob Spelten has updated his website to include 
software In an email to QL Today he writes: 

"Wolfgang Uhlig expressed his intention to close 
down the QL section of his website. That's why 
| made my own site at the launch of version 
2.05 of our program SuQcess (see QL Today 


v12il). | have now updated my site to include 
most of Wolfgang's software and some third 
party software from his site It is all freeware 
apart from SuQcess of which a trial version can 
be downloaded. Wolfgang has also given me 
the source code of his programs and gave me 
permission to update them. I'm already working 
on new options for QCoCo.’ 

To visit the site go to: 
http://members.upc.nl/b.spelten/ql/ 

The home page of Bob Spelten’s website con- 
tains links to download SuQcess, QCP and 
QCoCo. There Is also a link to a utilities page of 
‘Useful programming tools’, which will be mainly 
of interest to QL-ers wanting to learnt about GD2 
colours although there is also a utility for 
converting a DBAS file into a HTML Tile. 


More Updates 


The J-M-S update site 

http://updates.j-m-s.com 

features more updates of J-M-S_ products. 
Registered users can download many updates of 
J-M-S programs. The list of programs currently 
available is QSpread, MenuConfig, Menu Exten- 
sion, QPACi, QPAC2, EasyPTR V4, WinEd, 
CueShell, SuqCess, FiFi, BASIC Linker SMSQ 
GoldCard (with and without Aurora drivers), 
SMSQ QXL, SMSQ ATARI (incl. mono), QD. 


The updates of QPC and QPCPrint are not 
available from this site, as Marcel maintains them 
very well on his own site: 

hitp://www.kilgus.net 

The password to unzip QPC is the same as it 
was in the past, and to download the QPCPrint 
update, follow the instructions on Marcels 
Website to log in (e.g. start QPCPrint and click on 
the “About” button to find out your license details 
required for the download login. 


The official source of SMSQ/E includes a large 
number of files containing assembler code. This 
source also contains a file explaining how to 
compile SMSQ/E. In it there is the remark: 

For the time being, the assembler must be the 
QMAC Assembler. 


This clearly suggests that at some time in the 
future other assemblers could be used The 
reason that, at the moment, only QMAC can be 
used is that the source code is written in such a 
way that no other assembler would accept it. 
However, some years ago now, | produced for 
my own use a version of the source specifically 
for GWASS. 

After a discussion with Marcel Kilgus and Wolf- 
gang Lenerz at one of the QL meetings, | amen- 
ded GWASS so that it would assemble code 
written for QMAC with little or no alteration. | also, 
with Wolfgang's knowledge, produced versions 
of the SMSQ/E source which could be assem- 
bled both by QMAC and by GWASS. If this code 
were put on the official site, then the current me- 
thod of assembly by QMAC would be entirely un- 
altered. In addition, by using some programs 
which | can supply, the same source could be 
assembled by GWASS. 

In order that such altered source code can safely 
be put on the official SMSQ/E site there must be 
acceptance that no errors have been introduced. 
Thus the binaries produced by QMAC from both 
the original and changed source must be identi- 
Cal, from a user's point of view. Also the binaries 
produced by GWASS should be effectively the 
same as the QMAC ones. 


| have satisfied myself in both these cases. In- 
deed, GWASS versions of SMSQ/E from v3.12 
have been used on the Q40, Q60, QXL and Su- 
per Gold Card without any detectable problems. 


Wolfgang Lenerz has, reasonably enough, indi- 
cated that the altered source code could not be 
put on the official site unless he was sufficiently 
satisfied with the changes. 


There are four ways | used to test the changes: 

1. Compare the _ASM code by eye. 

2. Compare the resulting assembled _REL files. 

3. Compare the resulting linked modules. 

4. Compare the resulting SMSQ/Es by use - 
rather like beta-testing. 


Kg 


In the hope that some SMSQ/E users can be 
persuaded to become beta-testers, | propose to 
put on the SQLUG site three files enabling users 
to compile their own versions of SMSQ/E by 
GWASS. 


re 


The three files consist of a zipped file containing 
necessary programs including GWASS, an 
SBASIC program and an explanatory text file. 


The first part of the text file is: 


‘How to Compile SMSQE v 3:13 
Using GWASS 


REQUIREMENTS 
1. Machine 


QXL, Q40, Q60, Super Gold Card with SMSQE or 
QPC2 (v 3.33 or later) with at least 16 megabytes 
of RAM and at least 200 megabytes of space on 
the drive to contain the source code and 
answers. 


ACTION 


A. Download the official source from Wolfgang 
Lenerz’ website. 
http://www.scp-paulet-lenerz.com/smsqe/ 


The source is available in two versions. Either in 
one large file (smsqe313.zip) or in several files 
(iod.zip etc). The first version is too large to fit on 
one HD disk. 


B. From our site download smg313.zip then save 
smsg3_bas and LRUN it on your QL.” 


When the program smsg3_bas is run a window 
appears into which some answers have to be set 
as is shown below. 


er eT: Ts ae 
Using GUASS 


| (asks if the source 
4 IS one or many files) 


PThe source is either one file 


for several. Is it one file YAN? | 
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QPC2 Version 3 + SMSQ/E Software QL-Emulator for PC’s 2. owe EUR 59,90 
QPC2 Version 3 - Upgrade from QPC2 Version 2 o.........ccccccccccceeee tesssesstesssesteestenteeee EUR 19,90 
QPC2 Version 3 - Upgrade from QPC2 Version 1 ou... cece sescseessesssesteesenteene EUR 39,90 
SMSQ/E ATARI or (Super)GoldCard OF QXL  o.esessessssssssssessssessessscssesscsacs suseessaccanessnecseneens EUR 39,90 
QPC Print - printer emulation driver for QPC ou. sssscsssssecsccscscsscccossnsesecccsssuecceceeccsnsseseseccenseeeesssesneesssescensecssenseeess EUR 39,90 
Agenda Agenda program for WMAN and Prowess  ........:sssssssssssessssessessssesesseseeseee LV 1.09] :séservsnessss EUR 14,90 
Suqcess Database front-end for WMAN ........c.cccssscssssssessesecsecsessssussseseaseseeneeneenees [V2.05)] acssstsasccest EUR 19,90 
QD2003 Pointer-Environment-Editor .............ccscssessscessesessesesnssessssesesssseesesesareneeeess [VB.OTP svceseticces EUR 39,90 
QD2003 Upgrade from QD98 oon. ececssssssssesessessseeseeneeseseeseseesnesssssensessesees [VB F] esececseases EUR 9,90 
QD2003 Upgrade from previous Versions ........sssecsssesseseseesessessseesesseeseesees PV BOA) teattecesets EUR 19,90 
QMAKE Pointer-driven MAKE for GST/Quanta Assembler ............c.ccssssscesseereeseeeseee [VAS] ccisdectansie EUR 14,90 
BASIC Linker is cctecidite io csimentiecdtee diaeaiiadii ane canes VAT]. Secscesaans EUR 14,90 
WINED Floppy/Harddisk Sector- & File-Editor ........c.c.cccccsscsescscsssssssscsssscceeecseveeseaves VASZ GD siscencctetees EUR 14,90 
FiFi II File-Finder - Extremely useful! ............ccccesssssssssesessesessesscsesscsessesscsecsecseesnesseees [V3.1] eccesteqistes EUR 14,90 
FIFE I Upgrade from Fifi V1, 2 OF 3 oe ceeccsssesesssssesssssessesseesnesscesssneesnecseens [V4.3 1] oe EUR 9,90 
EPROM Maina er ..........0........cccccecsssesessesssesesesesssscsescatsssssesesusneseseseeseeceseseass V3 502 Fusscscescust EUR 14,90 
QSpread2003 Spreadsheet Program .........s::ssscsesessessssessessessestesecseseesesessseesesees (V4.04] uo. EUR 39,90 
QSpread2003 Upgrade from QSpread2001 on... eessesseesssecstsssesseccseeseeess [V4.04] ....seccceaee EUR 9,90 
QSpread2003 Upgrade from V1 ou... .eesssessssssssesstssssssssesssessesnessesnesseseneeneenes [V4.04] uu... EUR 29,90 
QPAC I Utility programs oo... eesesssecssseestessecneessseessecnesscsscsuecscenscnecatesnsensensesees VATA snsctsacenaee EUR 19,90 
QPAC II Files, Jobs & other Things .........-csssscsecsseseccnessecesecesecsesssecsneeneesseesneceneeses [VES] scssecscosiees EUR 29,90 
CUTIVE TE Spell heehiet i. cccccsczecsasscah clpsapsivaletispstieonshsiecddeaiit ncatin teat aocasdctlnas ae aha 4 (este torre EUR 24,90 
COPEMR: Polnyter Too lit Sas scisses cvvgassavsnccasanussuattessrvedseusadceisesccdesastal gsstevbese wis Tesccctaees IVO.30) fectesscs! EUR 39,90 
DISA interactive Disassembler ...............cs:sssssssssssesssseenssssesssesnesscsesessesacescaneeneeseens [V3.04] .........000: EUR 29,90 
typeset-ESC/P2 text87 driver for all ESC/P2 printers (incl. Stylus) ..........0.csccscsscsssssssesesssssscsseseseesenes EUR 24,90 
CUSSION es tess tet, Arak recess i teal uae ae cant WI 1A ecto EUR 29,90 
CureShell for OPC scsi tts casiiea sain testan nnd atatansaesenaominninns [V2.9] sccaiecunice EUR 20,00 
SER Mouse software mouse driver for serial mice ......................ccc eee eeeceeceeseseeeeeeee EUR 10,00 
EGsy PTR Versi 6 aii cicscsnnfsiesetescnsehssnecestsessessbsniecveseaseeteddnniedesisstaarvescaws [V4] Gaeibastoiseen EUR 59,90 
EasyPTR Version 4 - Upgrade from earlier versions ..........ss:sscsessesseeeeees ce) Gearon ener EUR 39,90 
text87plus4patch - now for QPC, QXL, Q40, QG6O, Aurora oo... cece eens EUR 10,90 
QUT - OL Desktop program ......ccssssssssssssssssssssssssssssssesssssssssesssssasesssssssssessssessssuesossssnsssssssessssne seseeeetacataceaeecerecenses EUR 59,90 
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Using GWASS 


Se eee ee | directory to produce a help window as shown below. 
the SIGE source Thong RPS Riiieie ES AIS A eee ov 
|susoe [FE BS mm Using GUASS 
source) [ ie ee 
Blank boris? os i ur d a areen. Rex q When you are finished press ESC. 
4 
s Using GUASS (asks for | gMore Lt Back 
[Give BS chee hotding ] the directo- os eons : 
eC s' is the some as for SMSQE> ; ry holding 
P 4 SMG313.ZIP) 
: SS eck ee (the 2nd help win- 
fBLODK gor tS) ad “pressing ENTER ca cetectee| COW) 
2 gitems to be proces Fi 
= i iu it el ei Ffor each module w : 
Using GuASS (asks for the target — wisescess"zech tare Ui Pee 
sive ie target directory | directory) y nae 
; ‘ 3 et ttre It Bock | ESC Exit | 


| When the SMSQ/E group has been chosen the 
aa binaries are produced and set in the main directo- 
ry as indicated below. This process takes around 
The target directory is the directory into which three minutes on a QPC2 to compile all five 
the source code will be loaded and in which the _ targets. On a Q60 it takes about ten times as 
completed binaries will appear This directory will — long. 
contain 16 sub directories some of which will 
have their own sub directories. Since the resul- 
ting filenames can be quite long, it is important to 
keep the name of the target directory short, pre- 
ferably restricting it to just one letter, as in the 
example. 


Using GWASS 


Penis 


citer i 


(shows a successful 
result) 


psseannnnaervavavnncoars 


eer ge-——] indicates. that un 

Bsa | zipping is occurring) — If, at any stage, the left hand window becomes 

eee eee ' not available, by use perhaps of CTRL_C, it can 
be picked by pressing CTRL/SHIF TALT/DOWN. 


Code Changes 


Using GuAss j lindicates that dev8 | have made various changes to the SMSQ/E 
esse wait for “dave > aeur® | ? CeV7 IS OCCUTTINg) — squrce code, many of them trivial. Trivial changes 
included moving “section” commands to the start 
and also putting a space between the end of an 
instruction and the start of a comment on the 
same line. 


meee SHSBE 


Using GUASS | The most serious changes related to 

The et trate yeu 1 macros. The coding of macros is quite 
-. | different in QMAC from that in GWASS, 

which followed the syntax of HISOFT 

yj and Talents Thor MC68020/68881 


Jher you are finished pr 


; ’ Yeung. This change required rewriting 
(a new window to allow choice of SMSQ/E) all the macros and setting them in a different sub 


| from the QMAC macros. 
The left hand window allows selection of the  MeCtory Jrom the GMAC macros 


group of SMSQ/Es to be made. 


Although some macros are called in the same 
way by both QMAC and GWASS most of them 
require different coding. To reduce the changes 
that would otherwise be required in the source 
code | altered GWASS so that there is now the 
option to process macro Calls as for QMAC. 


Final Comments 


| have wondered whether or not the changes | 
have made to the SMSQ/E source comply with 
the conditions under which Tony Tebby made the 
source public. Put simply, the conditions appear 


Having just created a complex diagram using 
graphics commands like ARC, CIRCLE and LINE | 
had a need to add some text to the diagram and 
found it to be surprisingly difficult to accurately 
place text over the diagram. 

Graphics commands like those use the graphics 
co-ordinate system, a scaleable system where 
the origin is at the bottom left of the co-ordinate 
system, like a graph (in contrast to commands like 
AT and BLOCK which down from the top of a 
window). The actual scale is set by the SCALE 
command: 

SCALE #channel, scale_factor,x_value,y_value 


The channel number is the window to which this 
scale command is applied, or window channel #1 
if none is specified. 

The scale_factor sets the number of units high 
the window is to be. For example, 100 sets the 
window to be 100 units high, independent of the 
height of the window in pixels. The width is then 
set in proportion to the ratio of window width to 
height and can be rather tricky to work out, but 
luckily the system is robust enough so that even 
if you try to draw somewhere off screen, the 
graphics commands merely work out what is on 
screen and plot those points and ignore anything 
which falls off screen. 

If you set the window to be 100 units high, and 
then issue a command like CIRCLE 50,50,40, this 
draws a circle of 40 units radius, with its centre 
being at 50 units across and 50 units up from the 
default origin at the bottom left of the screen. 


We can plot a single point at the circle’s origin 
with the command POINT: 
POINT 50,50 


to be that the source is made freely available but 
there should only be one official version of 
SMSQ/E at any time. 

Since | have taken great pains to ensure that as 
far as is humanly possible any SMSQ/E version 
resulting from my altered source is indeed the 
same as the official version, | think that | have 
complied with the conditions. 


It would be useful if anyone producing and using 
a GWASS version could let me know if there is 
any problem, either in its production or in its 
subsequent use. 


Suppose we wanted to place a "+" symbol at the 
centre of the circle. We could draw one using 
two lines, but we can also position text on 
graphics co-ordinates by using a variation of the 
CURSOR command with two extra parameters, 
which position the cursor by means of a graphics 
co-ordinate position, offset by a number of pixels 
indicated by the extra parameters: 

CURSOR [#channel,] graphics_x,graphics_y, 
x_offset, y_offset 

(the channel number is optional, like the normal 
CURSOR command, defaulting to channel #1) 


So, to place a "+" character at the centre of the 
circle, we specify the graphics co-ordinate 
(50,50) and an offset in pixels. Since we wish to 
centre the character, we tell it to put the "+" at the 
centre, less half the width of the character and 
half the height of the character: 

CURSOR 50,50,-3,-5 : PRINT"+" 


Important note: unfortunately, some versions of 
the QL ROM have a nasty bug which prevents 
the use of the five parameter version of the 
CURSOR command, but even on version AH and 
JM ROMs you can still get the command to work 
with 4 parameters, ie. miss out the channel 
number, in which case it defaults to using channel 
#1. You can get more details of this bug by read- 
ing Simon Goodwin and Mark Knight's articles on 
QL bugs in past issues of QL World and QL 
Today respectively. 

Suppose we wish to proceed to draw a clock 
face within the circle - this would require us to 
draw minute and hour points and numbers from i 
to 12 inside those number points. 


We work from two more imaginary circles inside 
the clock face and use some fairly simple 
calculations to work out where to place the 
points initially. A full circle is 360 degrees, so the 
twelve hour points would be spaced by 360/12 
or 30 degrees, while the 60 minute points would 
be separated by 360/60 or 6 degrees each. 

Using this information we can create a simple 
program using just a few lines of basic to add the 
points and hour numbers to our clock face. The 
first loop, called minute, plots 60 equally spaced 


100 REMark Clock Face, by David Denham 2008 
110 : 

120 PAPER 2: INK 7: 
130 CIRCLE 50,50,40 : 
140 CURSOR 50,50,-3,-6 : 
150 : 

160 REMark draw minute points 
170 FOR minute = 1 TO 60 

180 
190 END FOR minute 
200 : 


CLS 
REMark outline 
PRINT "+"; 


points on an imaginary circle 5 units inside the 
first (Le. radius of 35). The second loop, called 
hour, plots twelve hour points on the same circle, 
all equally spaced, but in a different colour Finally, 
we plot the numbers themselves on another ima- 
ginary circle inside the minute marks, using CUR- 
SOR to ensure that the centre of the digit falls in 
the right place, by subtracting half the pixel width 
and height at the end of the CURSOR command. | 
have used the default channel #1 for this to try to 
make sure this works on older QL ROM versions. 


POINT 50+(35*SIN(RAD(6*minute) )) , 50+(35*COS(RAD(6*minute) ) ) 


210 REMark draw hour points in different colour 


220 
230 
240 
250 END FOR hour 
260 : 

270 INK 7: 
280 : 

290 REMark plot the a 
300 FOR hour = 1 TO 1 

310 
320 


INK 0 
FOR hour = 1 TO i2 


REMark back to white 


PRINT hour; 


330 END FOR hour 


Figure 1: Output of the clock display program 


The program draws the clock face shown in 
Figure 1. It should now be a fairly straightforward 
job to plot the minute and hour hands using the 
angles shown above for minutes and hours (and 
seconds if you wish) and another imaginary circle 
just inside the digits. Using OVER -1 and drawing 
the hour, minute and second hands twice as they 


CURSOR 50+(30*STN(RAD(30*hour))) ,50+(308C0S(RAD(30¥hour))), 


POINT 50+(35*SIN(RAD(30*hour) )) , 50+(35*COS(RAD(30*hour) ) ) 


—3-(3%* (hour 9)) ,-5 


change, this will undraw each hand as it is time to 
move it. Refer back to my time and clocks 
articles ("Clocking In’) in past issues of QL Today 
if you wish for further information. 

lf you wish to make the hour dots more visible, 
one way would be to draw a filled circle in line 
240, rather than just use a POINT: 


240 FILL1: CIRCLE 50+(35*SIN(RAD(30*hour) 
)),50+(35*COS(RAD(30*hour) )),1 :FILL 0 


Another fairly obvious use for CURSOR is to 
annotate graphs. The graph may be drawn by a 
series of POINT and LINE graphics, and text 
positioned at a given point by calculating where 
the point is on the graphics co-ordinate system 
and using CURSOR to map the text onto the 
graph, possibly with a suitable number of pixels 
offset to make sure that the text doesn't over- 
write some of the graphics: 


100 REMark Graph example 

110 PAPER 2: INK 7: CLS 

120 SCALE 100,0,0 

130 LINE 10,90 TO 10,10 TO 90,10 
140: 

150 FOR y = 0 TO 9 

160 CURSOR 10,10+8*y,-12,-10 : PRINT y 
170 END FOR y 

180 : 

190 FOR x = 0 TO 9 

200 CURSOR 10+8%x,10,0,5 : PRINT x 
210 END FOR x 

220 : 


230 REMark draw a random 'graph', labelling the random points 


240 INK 4 : LINE 10,10 

250 yl = 10 : OVER 1 

260 FORx = 1109 

270 yl = y1+RND(1 TO 10) 
280 LINE TO 8¥x+10,y1 

290 CURSOR 8¥x+10,y1,1,1: 
300 END FOR x 

310 INK 7 


PRINT CHR$(64+x) 


320 CURSOR 10,90,6,-10 : PRINT 'RANDOM NUMBER GRAPH' 


Figure 2: Output of the graph labelling program 


Figures 1 and 2 respectively show the output you 
should expect from the two examples. Work 


David Denham wrote about the QLay2 emulator 
for Windows machines in issue 2. In the same 
issue, Jimmy Montesinos gave us news of the 
latest version of the QL2K emulator. 

QLay2 was a straightforward and free develop- 
ment of the original QLay emulator. 

QL2K takes the emulator into a new direction. 
This version is now described as Postcardware 
or Registerware. Basically, it is also a free QL 
emulator, but if you use it, you should register 
with the author so that you can receive news 
about updates, be a part of a QL2K “community” 
and so on. 


through them and by altering the text and 
graphics you can experiment a little to gain more 
insight into how the command works. 

You will have seen by now that what the 4 or 5 
parameter version of CURSOR does is to posi 
tion the text cursor position at a given point 
using the graphics co-ordinates, allowing you to 
synchronise text and graphics positions with 
relative ease, making it easier to position text on 
graphics which use the graphics co-ordinate sys- 
tem. There are problems getting this version of 
CURSOR to work on some older QL ROM ver- 
sions, but if you are able to use screen channel 
41 or are using a more recent ROM version this 
can be a handy addition to your graphics pro- 
gramming knowledge. 


QL2K is intended for use on newer versions of 
Windows: Windows 2000 and Windows XP for 
example. The author suggests that it has been 
successfully tested on Windows Me (Millennium 
edition) too. 

The QL2K emulator is described as still being in 
the alpha-release stage of development. Version 
0.98a is the latest version available at the time of 
writing - you have to download version 0.96a 
from 

http://www.jadiam.org/QL 


and then download the version 0.98a patch to 
update it. 0.96 is a download of about 467K, 
while the 0.98a update is about 
180K in size. You have to run 
the setup program for v0.96a, 
then apply the patch to update 
to 0.98a 

Once you have installed all the 
files, the emulator is started 
using a shortcut to QL2K.EXE | - 
and the configuration screen | 
(see figure 1) pops up. Here | 
you can select a language for 
the prompts by clicking on one 
of the flags at the bottom, me- 
mory size (from 128K, 640K, | | 
iM, 2M, 4M or 8M), the display | 
size (always QL 512x256, but | 
this can be mapped onto any | 
of 8 PC resolutions to allow it 
to look bigger on high resolution PC 
displays), Keyboard country, Clock 
Multiplier, Fast Microdrives, any of up 
to 6 add-on ROMs, use DirectDraw, | 
Full Screen GDI, No mouse, and 
Autostart. An additional button at the | 
bottom leads you to a second 


BOOT ROM\MINERVAISS.ROM 
ROM1 ROM\NFA-ROM 


playable, whereas you can make the emulator 
run faster for time consuming tasks. 


Memory 5126 

Screen size | 
Keyboard country fu 
Clock multiplier 1 
Fast microdrives ~ 


~ Full screen GDI 


P DirectoOraw 
: ° Autostart 


MDY WIN | 
oeranamncnoammiae aed 


configuration screen where you can ~_—— — ————— 
assign path names to up to 8 WIN Fig. 2: The WIN and MDV device assignments screen 


and 8 MDV drives. 
The main difference between this and QLay 2 Is 
in the field of execution timing. You should find 
that QL2K does not “slug” your PC any more - 
the problems David reported don't seem to exist 
on QL2K (slow screen update, hogging PC re- 
sources}. Now, a QL set at original QL speed 


uses very few percent of CPU time in both | 


DirectX and what it calls "GDI mode’. There is a 


clock multiplier function, so if you are running | 
QL2K on a reasonably fast PC, it can be set to 


run at, say, twice the speed of a QL. This 


seems to be a true speedup too, which | 
doesn't seem to speed up a PAUSE delay for | 
example, as older versions of QLay used to | 
tend to do when coaxed into speeding up. 


Certainly, entering something like 
d=DATE: PAUSE 3000:PRINT date-d 


prints the correct value of 60 seconds. You can | 


set the speedup in the configuration screen | 
(Clock Multiplier) or via a command line switch, — 
where the command to start QL2K.EXE has the 
switch -Px appended (where x is 1 for original 
QL speed, 2 for twice normal speed and so on). 
This is very useful - games can be run at original 
QL speed to prevent them running too fast to be 


There is now an option to set the microdrive 
delay from 3lms down to ims. As | don't use the 
MDV emulations | cant comment on this. 


A debugger is now available from the 


COMMANDS menu. | haven't tried to use, other 
than to start it and quit from it using ESC. 


One of the things which still doesn't work is 
sound. Enter a BEEP command and nothing 
happens - the command is ignored. And there's 
still no floppy disk driver - you still have to use 
the supplied tools programs to copy files to or 


Compatibility 

OL Commands Screen Language Help In summary, this iS | very worthwhile 
progression to the earlier QLay emulators. 
The fact that the emulator doesn't slug the 
PC any more is great - | can now have the 
TV tuner running on the PC at the same time 
as QLing on QL2K without one or the other 
struggling. The ‘clock multiplier’ facility is very 
useful too, as it lets you choose between 
running older games at standard QL speed or 
taking advantage of the higher processing 


Fig. 4: Note the display of free memory, versions] SPe€ds possible on modern PCs. 
= and a digital clock at the top of the display 


from QL disks. The available 8 WIN drives 
should mean that this won't be too big a 
problem, as you will be using the WIN drives 


on your PC’s hard disk most of the time, only gh eR latatil 

resorting to QL floppy disks if you wish to & Jimmy Montesinas, Raphaél Zhou and Mikael Strdm. 

copy files between the emulator and Contributors : Ross Marshall, Simoni 4 Goedvain, 

another machine. It is still necessary to fiddle QLAY original and source from Jan Yenema. 

with the Tools programs to update the WIN OL2K is sponsored by JADIAM, 

directories if files are copied to or from the 

PC side of things. Version 0.1 Build 098a, Oct 5 2007 

There is a Helo command available, but it 

needs an active internet connection to take ca | 

you to online QL2K documentation at the : na sacl 

Jadiam website. You can download some = —|Fig. 5: The copyright screen} 
documentation and a personal copy of QL2K is a completely free emulator at the 
Simon Goodwin's Speedscreen+ ROM for use — moment, apart from the need to register with the 
with QL2K (see figure 6). author Jimmy Montesinos (registration is free - 


The requirements that QL2K makes of your PC juct fill in a form on his website) 
are fairly modest - minimum of Windows 2000 — wwwjadiam.org/QL 
(although claimed to work with the older 

Windows Me), 9MB free RAM, ..... enka AEE an panne 
3MB hard disk space and AS 2 aie ee Ae edd 
DirectX 8.0 or later. Se Se ee 
The startup screen ROM titles 
claim that PAR and SER is 
emulated in the NFA ROM title. 
As my printer is connected to 
my PC via USB, | can't use my dan @beK 6 cancdanc 
printer it would seem, though [2 

it may be possible to use a |lewm 
parallel printer i 
QL2K can use most versions [mee 
of the QL ROM._ including 
Minerva, so if you have an 
awkward program which only 

works on one particular QL 

ROM, it is quite easy to boot 

the emulator with a copy of 

that ROM image to run the 
program in question. 


File Edit View Favorites Tools Help 


Se: che | Se evinien jotar sralos sensi. zamee tre 


> LIK F Home <P Downloads EIS Projects ce Screenshots ae > Links =| 


& = 


Fie 6: The eee screen takes you to the Jadiam website 


bttp:ffonws sjadiom. ,oraidLfinksfinis. pho. 


Well for many years now I've been avoiding this moment, but it has finally arrived. | am starting to learn 
all about programming the PE in assembly language. You are coming along for the ride! I'm sure that 
along the way I'll be making as many, if not more, errors that | usually do and someone out there who 
knows far more than me, will correct me as we go along. As | always say, you should learn from your 
mistakes! 

There are two parts to the PE, ptr_gen and wman - the Pointer environment and the Window 
Manager. To slip easily into programming, we shall start off with a small and perfectly useless pointer 
only program, so the Window Manager stuff will not be used. 

In order to run the program you should have PTR_GEN loaded. If you are running SMSQ/E then it is 
built in to the operating system. If you are running a ‘normal’ QL then you will need to load it. | suspect 
most - if not all - users still with us will have a copy. However, if not, Dilwyn’s Web Site will have a copy 
to download. 


Ok, lets dive straight in with our next to useless program, beginning with a host of equates. 


The current job id 

Infinite timeout 

Open Old Exclusive device 

Get PE information 

Outline a primary window 

Read the pointer 

When to stop reading the pointer 


me equ -1 
timeout equ -1 
openOld equ 0 
iop_pinf equ $70 
iop_outl equ $7a 
iop_rptr equ $71 
termVec equ $01 


Noe Nee Noe Noe We We Woe 


The final equate above tells the call to IOPLRPTR when to return back to the code in our program. It is 
8 bits long and each bit has special meaning, as follows : 


Bit Meanin 

Return when a key or button is pressed in the window. Also, request window resize. 

Return when a key or button is pressed (subject to auto repeat). Also request window move. 
Return when a key or button is released in the window. 

Return when the pointer moves from the given co-ordinates in the window. 

Return when the pointer moves out of the window. 

Return when the pointer is inside the window. 

Reserved. Do not set. 

Window Request. 


MEM O11 COMO" & 


Bits 0 and 1 look a bit funny and are used in conjunction with bit 7 to indicate a window request. If bit 7 
is set then the rest should be zero except bit 0 or 1 - one of these should be set. If bit 0 is set the 
pointer is the resize one and if bit 1 is set it is the window move pointer. If both are unset, the Window 
REquired pointer will be displayed. With bit 7, the topmost window of the pile if hit and selected. More 
on this later in the series. 

Our termination vector is set to have bit zero turned on only. This means when a mouse button is 
pressed or any key is pressed while the pointer is in the window we create later, the call to IOP_LRPTR 
will return. 

As this is a job, we need a standard job header and as we have seen this so many times before, | shall 
not insult your intelligence by explaining it yet again! 


bra.s start 
de.l 0 
de.w $4afb 


= 


de.w 15 
de.b 'PTR_GEN Test v1' 


Next we have a few definitions of channel names, window sizes and space for the Pointer Record that 
we get back from a call fo IOP_LRPTR. First of all, a channel to a console is required. 


conChan de.w 4 
de.b 'con_! 


Once we have it open, we redefine it to be 200 wide, 100 deep and centred in the middle of a 512 by 
256 ‘standard’ window using the following block of 4 words. 


conDef de.w 200,100,156, '78 


The next 24 bytes are used by the IOP_RPTR call and it stores the pointer record. There is more on 
this later on in the text. 


ptrRec ds.w 12 


This is where we start the main code. It's pretty simple as you can see and all we basically do here is 
open a console device, redefine it as mentioned above, set a border of one pixel in red and finally 
clear the screen (to black paper by default) If anything gives an error we simply kill the job and exit. 


Strangely, using #io_open kept giving compile errors! 
Channel is required for this job 
Device exists 


start moveq #1,d0 
moveq #me,d1 
moveq #open0Old,d3 


lea conChan, a0 String defining device to open 
trap #2 Do it 

tst.1 dO Ok? 

bne.s exit No, exit 


Nee Nee Wee Nee Nee Noe Nee 


moveq #sd_wdef,dO ; Redefine open window 


d 
moveq #2,d1 ; Border colour is red 
moveq #1,d2 ; Border width is one pixel 
lea conDef, ai 3 Console definition block 
trap #3 3 Do it 
tst.1 dQ 3 Ok? 
bne.s exit 3 NO, exit 
moveq #sd_clear,dO ; CLS 
moveq #timeout,d3 ; Infinite timeout 
trap #3 3 Do it 
tst.1 dO 3 Ok 
bne.s exit 3 No, exit 


That's about all the main setting up that we have to do. We now have a channel open redefined and a 
nice border showing. The next stage is to look for the PE, if it isn't found, we have a problem and 
simply exit. 


FindPE moveq #iop_pinf,dO ; Get PE Information 
moveq #timeout,d3 ; Infinite timeout 
trap #3 3 Do it 
tst.1 dod 3 Ok? 
bne.s exit 3 No, exit 


So far so good. If the PE exists, we now need to make sure that our window is outlined. This indicates 
to the PE that the window is to be ‘managed’ It also defines the limits of the ‘hit area’ where a hit or 
do or keypress will be registered by our program. This gets a better explanation later in the series. 


GotPE moveq #iop_outl,dO ; OUTLN our window 
move.1 #$00210002,d1 ; Set a shadow size of 2 length and width 
moveq #0,d2 ; Do not preserve the window contents 
moveq #timeout,d3 ; Infinite timeout 
lea conDef,ai 3; The size of the window NOT COUNTING the shadow size 
trap #3 3 Do it 
tst.1 dO 3 Ok? 
bne.s exit 3 No, exit 


The shadow size is added to the sized defined in our console definition block but the shadow is 
outside of the hit area for our window. Now we read the pointer The call to IOP_LRPTR will not return 
unless the timeout expires or an event happens that has been set in the termination vector to cause a 
return. We are looking for a button or keypress while the pointer is inside our window. 


Pointer moveq #iop_rptr,dO ; Read the Pointer 
moveq #0,d1 ; Initial pointer co-ordinates X,Y 
moveqg #termVec,d2 ; When to return — on button or keypress 
moveq #timeout,d3 ; Infinite timeout 
lea ptrRec, al ; Storage for 24 byte pointer record 
trap #3 3; Do it 
moveq  #0,d0 3; We ignore CHANNEL NOT OPEN errors 


When the user clicks in the window with the mouse, either button will do, or presses a key, the call to 
IOP_RPTR will return having filled the pointer record with useful information. We are not bothering with 
that here in this first simple demo. We are also ignoring the possibility of AO pointing at a channel that 
is closed because by the time we get here, we have carried out lots of actions on it - so it should still 
be open! 

The next part of the code simply kills off our job reclaiming any resources it allocated and closing 
channels etc. 


exit move.1 d0,d3 3; Save any error codes 
moveq #5,d0 ; MT_FRJOB also gives compile errors! 
moveq #timeout,d1 ; The job to kill is this one 
trap #1 3; Kill me 
bra.s exit 3 We should never get here, but just in case 


That is all there is to this small demonstration. When assembled and run, you should see a 200 by 150 
window centred on screen (well on a standard QL screen anyway) cleared to show black paper with a 
single pixel red border and a shadow down the right and bottom borders. It is waiting for you to move 
the pointer into. When you do it will change to an arrow and will remain as an arrow while you move it 
around. Click a button or press a key while the pointer is in our window and the job wil kill itself. 


So there we are, a very simple pointer Environment program. More next time as we extend our 
programming knowledge of the PE. See you then. 


If you want to find how long a process or a eget ont 
However, a second is quite a long time in compu- 


program takes you can use the keyword DATE 
which is a function returning the number of se- 
conds since the beginning of 1961. The increase 
in the value of DATE will give you the elapsed 
time in seconds. You can also find this time inside 
an assembler program or even a C program by 
using the trap #1 call MT_RCLCK which is in fact 
what DATE uses. 


ting. | have recently needed to measure durations 
in units of ticks rather than seconds. A tick is a 
50th or 60th of a second, depending on the na- 
tionality of the QL. For the UK a tick is a 50th of a 
second. 

Simon Goodwin produced TIMING_CODE as part 
of the DIY KIT reported in QL World May 1989. 
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This introduces six keywords, T_START, T.STOP 
T_RESTART, T_ON, T_OFF and T_COUNT. These 
allow the use of up to four stop watches all 
counting in ticks. However, they can only be used 
in SuperBASIC. Since | wanted to be able to 
make my time measurements using assembler 
and C | had to think up my own system. 


Tick Counter 

Qdos is set up so that a 68000 level 2 interrupt 
occurs each tick. Qdos also allows a user to add 
his own routine to what is called the polled list. 
This is the list of routines which are called at 
each tick. All | needed to do then was to add a 
routine to that list. This routine would add 1 to a 
counter. 

What is less easy is to decide where exactly this 
counter should be. There are two places accessi- 
ble by all programs - the system variables them- 
selves and the set of Things. Since Things are 
not available to all QLs it seemed preferable to 


locate the counter in the system variables. Nor- 
mally this would be a very bad move since any 
free space in this area is in danger of being 
appropriated by any programmer who wants it 
for his own purposes. Thus normally | would 
never suggest using an area in system variables. 
However, the four long words at sys_vars + $DO 
are Officially set aside for the saving and 
restoring of the Floating Point Unit (FPU) when 
there is one, as in Q40 Q60 and some QXLs. 
Since | wrote the necessary software myself, | 
know that the fourth long word is not needed for 
the FPU save and restore. Thus | proposed to 
use this for the tick counter. 


Linking to the Polled List 

The following short program can be LRESPRd to 
set the tick timer going as part of the polled list. 
Each link consists of two long words. The first of 
these is used by MT_LPOLL to point to the next 
link. The second points to the routine to be used. 


lea ink, a0 address of link 
lea rout,al address of routine to be linked 
move.1 al,4(a0) set routine's address in the link 
moveq #mt_1po11,d0 link. . 
trap #1 « it. in 
moveq #0, d0 return to... 
rts BASIC 
ink ds.1 2 link 
rout addq.1 #1, $DC(a6) add 1 to the tick counter 
rts 


Second and Third Thoughts 

The small program above has two drawbacks. 
The first, potentially dangerous, is that it relies on 
LRESPR for its operation. One essential property 
of a link to the polled list is that it must not dis- 
appear Its space from the heap must be owned 
by master BASIC. So, if you LRESPR the program 
from a daughter BASIC which is subsequently re- 
moved the machine will almost certainly crash. 
The second drawback is not fatal but it can spoil 
the timing. There is nothing to stop the program 
being LRESPRd more than once. Each time this 
happens a new link is entered into the polled list 
with the result that the count goes up at each 
tick by the number of tick timer links. 


A Safe Link 

| thought the best way to set up a safe link was 
to do this through an executable program which 
would create the link in heap space having mas- 


ter BASIC as owner. This program could be exe- 
cuted from any BASIC or even from other execu- 
table programs. 

Another, though less important, reason for having 
an executable program is that the space occu- 
pied by the link and the associated linked routine 
need not contain the testing and linking instruc- 
tions and so will take up less of the heap. The 
linking program itself would gracefully retire after 
performing the link. 


Checking the Tick Timer 

For my own machine | would know that the timer 
had not started if the count were zero, especially 
if | arranged to set the count at 1 when | set the 
link. However, for other machines where there 
was the possibility of unauthorised use of the 
system variables a stricter check might be nee- 
ded. As a compromise, if | find that the count is 
not zero | wait for a short time and then examine 


the count again. If it had changed | assume the 
timer is working. Otherwise | know that the timer 
has not been set and also that someone else is 
using the space. In that case it is wise to exit 
leaving a message that the timer can't operate. 


Error Messages 

| have just indicated that the linking program 
should leave a message, at least if there is some 
fault. | decided to leave a message whatever the 
outcome. The messages would include some- 
thing on the lines of: 

1. Timer loaded OK. 

2. Timer already loaded. 

3. Timer can't be loaded. 


Assembler and C 
| then thought that it might be useful if the linking 
program could be called by an assembler 
program or by a C program. In these cases it 
would not be sensible to have windows 
popping up when the timer was set, or not 
set, as the case might be. Instead, | thought it | 
would be better if the linking program could 
send the error messages as an ordinary | 
error code. | 
The mechanism for this is as follows. The | 
linking program when it removes itself by | 
MT_FRJOB sets the error code in D3.L. If the | 
linking program was called by EW or its 
equivalent, rather than by EX, the waiting 
program receives the error message in DOL. 
lf the calling program was BASIC the error 
message corresponding to the code would 
be printed in #0. 


Config Block | 
My next thought was that if | had to choose | 
between ‘window’ and ‘message’ for the | 
departing remarks | should have a config 
block allowing the user to choose which 
method he wanted. | have always found the 
setting up of config blocks slightly daunting. 
For a long time now | have used a program 
T_CONFIG_DAIA to produce specialised 
blocks for programs to be compiled by Turbo. 
Much more recently | have produced a 
generalised version of this program which is 
called UCONFIG (for Universal CONFIG). At 
each run this produces config blocks for 
BASIC, assembler and C. 

Thus | found it easy, (at last!), to produce the 
assembler program's config block allowing the 
choice needed. 


{ I 
I loaded | not loaded | sys_tim in use | out of space 
F=2 DT=4 I DT=6 


Parameter String 

| have never found it reasonable to allow a 
choice via a config block without also allowing 
the same choice by a parameter string. The 
parameter string will, naturally, be expected to 
override the config block's setting. 

Thus a string of three bytes is allowed. The first 
two must be “-w’, with the 'w’ lower case. The 
third byte must be either "0", for "window’ or ‘I’ 
for message. 


A Flowchart 

A simple flowchart showing the present state of 
the linking program is shown here. As you can 
see, it is rather longer than the original LRESPR 
program which was, effectively, only the block 
called "Set timer’, 

*sys_tim’ in this flowchart stands for "$DC’, which 
is the place in the system variables used for the 
counter. 


pf=0 | 
I 


Show status in 
window 


| hope in a future article to show a listing of the 
whole program with more detailed comments. 


Ecevehiserucin 


In this article | hope to show how to set up and use data files on disk so that you can create your Own 
database and general data files. 

Data files are created using the OPEN_NEW command or similar in SuperBASIC. Once you have 
opened the file, commands such as PRINT and PUT can send the data in an ordered fashion to the file, 
allowing it to be read back later. 

The simplest type of data file is a simple list of names or words. In SuperBASIC we can simply hold the 
information in an array and just use PRINT to send it all to a file one after the other then use the 
CLOSE command to finish it all off 

Here's a very simple example, where we dimension an array to hold up to 10 entries, and then the 
program opens a file, prints the elements of the array to the file and closes it, so that it is stored for 
later use. 


= Ar RTE MAC 100 DIM entry$(9,20) 
‘GLOSSARY OF TERMS | #2“ 
120 FOR a = 0 T0 9 
| 130 INPUT "Entry ";(a);": ";entry$(a) 
| DATABASE - A file which holds information as 140 END FOR a 
‘a list of entries ' 150 INPUT"Filename ";filename$ 
| 160 OPEN_NEW #3, filename$ 
|RECORD - One complete entry in database, 170 FOR a = 0 10 9 : PRINT #3,entry$(a) 
180 CLOSE #3 


equivalent to one page or one entry in an. 


address book. if you now copy the file to the screen, you can see 


' that the data file looks like any old text file - each 
| entry is stored to all intents and purposes like a line 
of text. For example, if you entered numbers when 
: invited you should get a list which looks like this: 


FIELD - One part of a record, eg. a street | 
name in an address list 


é 
I 
“FILE POINTER - a value which indicates how | 
| far into the file we are, or where the next piece | 


of data will be read from or written to. a 
ARRAY - A SuperBASIC list, which can store | hey 
| strings, floating point numbers, or integer | five 
| numbers, depending on what type it was | six 
leas as in a DIM statement. | seven 
| CHANNEL - A number defined in an OPEN, | bey 
OPEN_IN, or OPEN_NEW statement which. ten 


indicates which file or device the data is to be | 


| 
bls to or inputted from. | There are a few points of interest to look at in the 


_f above program. 


storeeerveroneni anne 


On the QL, arrays dimensioned include one element of subscript 0, so DIM entry$(9,20) actually 
creates 10 strings (0 to 9) with a possible length of up to 20 characters. If you try to enter something 
longer than the value dimensioned (20) it is truncated to the first 20 characters. This is because the 
DIM command sets aside space for the amount of data specified and once it is set you can't change 
this maximum space without using another DIM command which of course destroys the original data 
and sets up a new definition. This is something we will need to consider when loading the information 
at a later date — the array should be dimensioned to match those which were used to create the file in 
the first place. 

Note, how in line 130, the variable a is enclosed in brackets. This turns it into an expression, so that 
INPUT prints the value of the variable rather than inputting it. 


Line 170 prints all 10 elements of the array to the file. An alternative to this is to change line 170 to print 
the entire array in one go using the much simpler form 170 PRINT #3,entry$ - SuperBASIC recognises 
that “entry$’ is an array, and no subscript or slice has been specified, so it prints the whole array with 
a linefeed between each part of the array. The slight advantage of using a FOR loop to do the printing 
though is that it is a little bit clearer to read. 

lf we want to read the array back in later, we need to use an OPEN_IN command to open a channel to 
the file and then use INPUT to read the values back into the array, like this: 


200 CLS : INPUT "Filename ";filename$ 
210 DIM entry$(9,20) 

220 OPEN_IN #3, filename$ 

230 FOR a = 0 TO 9: INPUT #3,entry$(a) 
240 CLOSE #3 


One way of improving our simple little file program is to ensure that we add data to the file which 
describes the dimensions of the array, to make sure we use exactly the same array when we load the 
file at a later date. To do this, we add two extra variables with the two dimensions of the array, and 
save these at the start of the file to allow this information to be recovered before the data itself is read 
back. 

So our program to create the file now looks like this: 


100 INPUT "Maximum length of each item ";wide 
110 INPUT "How many entries ";high 

120 DIM entry$(high-1, wide) 

130 CLS 

140 FOR a = O TO high-1 

150 INPUT "Entry ";(a);": ";entry$(a) 
160 END FOR a 

170 INPUT"Filename ";filename$ 

180 OPEN_NEW #3, filename$ 

190 PRINT #3,wide 

200 PRINT #3,high 

210 FOR a = 0 TO 9 : PRINT #3,entry$(a) 
220 CLOSE #3 


And the program to read data back has to be modified to recover and use this information: 


300 CLS : INPUT "Filename ";filename$ 

310 OPEN_IN #3,filename$ 

320 INPUT #3,wide 

330 INPUT #3,high 

340 DIM entry$(high-1, wide) 

350 FOR a = O TO high-1 : INPUT #3,entry$(a) 
360 CLOSE #3 


What we have discussed thus far describes the very simplest type of file, called a SERIAL data file, so 
called because when loading or saving it, we always start from the beginning and work our way 
through to the end. This is a very simple type of data file to use, and is perfectly adequate for small, 
simple files. 


The other type of data file is called a RANDOM ACCESS type. This is rather more complex than the 
SERIAL type, and as its name implies you can grab any piece of data from somewhere in the middle of 
the file and just manipulate individual items of data without having to load it all into memory. This allows 
very large files to be handled, but the programming involved can be much more complex. 

The basis of a random access file is that all the entries in the file are of equal length or padded out to 
be equal length. This in turn lets us just work out how far into a file the data should be, position the file 
pointer there and we can fetch one item out of the middle of the file or write an item there to update 
the old value. 


To visualise how a random access file would look, we'll use our example array above, and pad it out 
with spaces. I'll use a dot here to represent a space. Each line would end with a linefeed (shown by 
LF» below). Our array “entry$’ just contains the words “one’, ‘two’ and so on up to ‘ten’. Our file would 
look like this: 


ONES sik ce seed ee ed <LF> 
EW ie casei svieteisitnse we eteceseies <LF> 
TAPCO ei iicete wie etice: otek <LF> 
POUT Sood eos wees oe Smee «LP» 
PAVE waver cvewtderose see bie-se « LF> 
BE eieide ewes a bree «LF 
SEVEN... cc cece ec ecee <«LF> 
CLONU. cc ctew secu «LF» 
NINES i ssedeeies ele we St 6 «LF> 
COMM oie orcas t bo0.6 su Sie 08 « LF) 


We dimension the array to be up to 20 characters wide. When we print it to the file, we make sure that 
exactly 20 characters are sent to the file and if necessary we add some spaces to pad it all out to the 
required length. Therefore, each entry becomes exactly 20 characters wide plus the linefeed which 
PRINT adds, so a total of 21 characters per entry. 


100 CLS : INPUT"Filename ";filename$ 

110 DIM entry$(9,20) 

120 FOR a = 0 to 9 

130 INPUT "Entry number ";(a);": ";entry$(a) 

140 END FOR a 

150 OPEN_NEW #3, filename$ 

160 FOR a = 0 TO 9 

170 PRINT #3,entry$(a);FILL$(' ',20-LEN(entry$(a))) 
180 END FOR a 

190 CLOSE #3 


The important line here is line 170. This ensures that enough spaces are added by a FILL$ command 
to ensure that each entry in the file is exactly 20 bytes long plus the linefeed after it 

This has now created a file where we can work out where in the file each entry lies. This lets me 
introduce the concept of the file pointer, which is an operating system pointer which tells us how far 
into the file we are at the moment, in other words where the next entry will be taken from. It starts at 
0, which means the beginning of the file (or how many bytes of data there are from the beginning of 
the file to here). In this case, we know that each entry is 20 bytes long and there is a linefeed after 
each one, so the first entry starts at 0, the next one at 0 plus 21, then next one at 0 plus 21 plus 21 and 
so on. So to skip the first entry we point just after the first 21 bytes. This first entry occupies bytes 0 
to 20, so we set the pointer to 21 and INPUT the element starting there. So, to specify this 
mathematically we need to point to 21 x entry_number (where entry number starts from 0 like an array 
subscript). To get the third record we would set the file pointer to 42 (or 2*21) and so on. 


Records and Fields 
At this point we'll digress to discuss some terminology - RECORDS and FIELDS. 


A Record is one complete entry in a database. A Field is one part of the complete entry. Suppose we 
are building a database of names and addresses. A record is one particular name and address. The 
lines within the name and address are each a different field: 


Fred Bloggs 
123 The Street 
Anytown 

Any County 
England 

AB1i2 3CD 


If we use a different array for each line of the name and address, each array is a field, for example: 


DIM name$(9,20) : REMark name field 

DIM addressi$(9,20) : REMark address line 1 
DIM address2$(9,20) : REMark address line 2 
DIM address3$(9,20) : REMark address line 3 
DIM address4$(9,20) : REMark address line 4 
DIM postcode$(9,20) : REMark postcode field 


So, this database contains 6 fields in each record, the first being the person’s name, the next four 
contain the address and the final field contains the postal code. 

This example uses fields which have the same width (20 characters). Where this is true, it may have 
been easier to use one array with an extra dimension: 

DIM name$(9, 5,20) 


in this way, the '9’ represents the number of records the file can handle (O to 9) and the ‘5’ represents 
that the database will have six fields (0 to 5). 

lf it helps to remember which term is which, think of an address book. Each page is a ‘record’. The 
number of pages in the book is how many ‘records’ the book can store. Each part of the page, each 
line if you like, is a field within that record. 

In practice, fields in a file like this are rarely the same size. A postal code is rarely more than 8 to 10 
characters, while 20 characters is really a bit short for names and addresses. 

Another way of storing the data in an array is to dimension an array wide enough to hold the names 
and addresses in a single line, rather like columns of text. We need to work out how many characters 
we need in total. In this case, we dimensioned six arrays, all up to 20 characters wide, so we need 
6*20 = 120 characters in total, and we can store the whole lot in an array called entry$: 

DIM array$(9,120) 


For this to work we need to make sure that each record (each array entry) is a fixed size and padded 
out to 120 characters. The best way of doing this is to pad it out with spaces: 
FOR a = 0 TO 9: entry$(a) = FILL$(' ',120) 


Important: when dimensioning arrays, you should make sure it's an even last dimension, otherwise the 
QL may round it up for you and cause unpredictable side effects. So DIM entry$(9,10) is OK. DIM 
entry$(9,11) is not, and you may never be sure if the QL made each string 10 or 12 characters long. 
Having all fields in a single array dimension works by virtue of the fact that SuperBASIC lets you as- 
sign data to a string slice as long as you are careful to assign the right length and pad the fields out 
with spaces to make them the right length and make sure that old data is deleted before you assign 
any updated data. 

Since each field happens to be the same length in our database, we need to make sure that when we 
use a LET statement to put text into the array, we start the assignment at the right place and make 
sure we put the right length of data into the array. So to put the name field into entry$(0), the first field 
in the first record, we could input the name and use a LET statement to put it into the right place: 


INPUT name$ 

IF LEN(name$) >» 20 THEN name$ = name$(1 TO 20) : REMark too long? 
IF LEN(name$) « 20 THEN name$ = name$&FILL$(' ',20-LEN(name$) ) 
LET entry$(0,1 TO 20) = name$ 


It does have the disadvantage that the name is padded with spaces, so you'll always get back the 
padded 20 character length of string and you don't really know the real width of the name unless you 
Strip off spaces at the right of the name when you read it back later It can be a positive advantage in 
some cases, e.g. where data is displayed in columns and rows, like a spreadsheet or text file with text 
in columns. Ultimately, it is up to you which type of array method you use to store your database, 
depending on what is most appropriate to what type of database you build, and how the data is to 
be displayed. 


Internal Data Formats 


So far we have used the PRINT and INPUT commands to send data to and recover data from a file. In 
many cases, this is fine. It writes the data to the file pretty much like text, followed by a linefeed 
character It becomes a little restrictive in that numbers are actually stored as text. 

Toolkit 2 introduced new commands to SuperBASIC which allow us to write and read data in what is 
called Internal Format. This is how the QL stores data in its own memory and can be more convenient 
(but harder to view, read and understand by humans!) to use when it comes to random access files. 
These new commands and functions (PUT, GET, BPUT, BGET) allow us to write and read data using the 
same format as the QL uses internally: 


Strings are stored using a 2 byte value for the length, followed by the text of the string. This allows 
strings, in theory (memory permitting), up to about 32 kilobytes long. 


Integers are stored as a 2-byte value, storing values from -32768 to +32767 
Floating point values are stored as 6 byte values. 
Byte values can also be written and read. Byte values can hold values from 0 to 255. 


A very real advantage of this is the predictability of length of data. Using PRINT the value 32000 
needs 5 bytes plus a linefeed, whereas 99 requires only two bytes plus the linefeed. If we use internal 
data types, an integer value like those two always need the same number of bytes (2), so the length 
stays the same in a file. Likewise, floating point numbers always need 6 bytes - the length doesn't 
depend on the number of digits. And with text, the length is always the number of characters in the 
string plus the two bytes used for the length. So a string would look like this: 


<2 bytes for length of string» Text follows the length bytes 


We use the commands PUT and BPUT to write such data to a file. PUT knows from the name of the 
variable which type it is to use. Names which end with $ are treated as strings, names ending with % 
are integer values and names ending with neither of those symbols are handled as floating point 
numbers. BPUT always sends the data as a byte value even if you use an integer% name or a floating 
point variable. 


The command is followed by a channel number indicating which file data is sent to or read from, then 
the name of the variable being handled: 


100 OPEN_NEW #3,flp1_testfile 

110 LET a$ = "QL Today" : REMark a string 

120 LET year_no% = 2007 : REMark an integer number 

130 LET float_num = 1.5 : REMark a floating point number 
140 LET byte% = 255 : REMark a byte value 

150 : 

160 REMark send these variables to the file 

170 REMark in internal format 

180 PUT #3,a$ : REMark send a string 

190 PUT #3,year_no% : REMark send an integer 

200 PUT #3,float_num : REMark send a floating point number 
210 BPUT #3,byte% : REMark send one byte value 

220 CLOSE #3 


This simple example sets up a few variables and opens a new file, then shows how to use PUT and 
BPUT in lines 180 to 210 to write the values of the variables out to file in QL internal format. 


SO what we get is as follows: 
«2 length bytes»"QL Today” «2 byte integer «6 byes float valuebyte value» 


Note that there are no linefeed (newline) characters between them all. Try copying this file to the 
screen to view it and it will look pretty meaningless, with a little text you can read. This shows a little 
disadvantage with this method of storing data - it is not easy for humans to read, although it is great 
for a QL to handle! 


Here is how we read the data back into the QL later: 


100 OPEN_IN rel cep 

110 GET #3,a$ PRINT a$ 

120 GET #3,year_no% : PRINT year_no% 
130 GET #3,float_num : PRINT float_num 
140 BGET #3,byte% |: PRINT byte% 
150 CLOSE #3 


The program fetches the values of the variables from the file and prints them to the screen to prove 
that they are the same ones we wrote to the file previously. 


Although | happened to use the same variable names, you don't have to do so, as long as you use 
the right type of variable. The first one must be string. The second one must be an integer, the third 
one must be a floating point number, and the fourth one must be either an integer (best) or a floating 
point variable, either can accept the one byte value. Sometimes, QL type coercion can convert from 
one type to another but you are best advised to use the same type of variable where possible to 
avoid any mix-ups. 


File Position 

We can see where in the file the QL's file pointer is looking at by using the FPOS function from Toolkit 
2. This returns a number which tells us how far from the beginning of the file we are. In other words, it 
gives us a value indicating where the next value will be taken from. Give it a channel number and it will 
tell you this pointer's value. As the QL can have more than one file channel open at the same time, you 
need to be careful you are using the correct channel number. Assuming that the file is already open: 


PRINT FPOS(#3) 
or 
LET file_postn = FPOS(#3) 


We can use FPOS in our last example to help us understand how the file is stored, by printing its 
values as we read each item back from the file. This can help us debug a program when we make a 
mistake and things don't quite work as expected: 


100 OPEN_IN #3,flpi_testfile 

110 fp = FPOS(#3) : GET #3,a$ : PRINT fp;':';a$ 

120 fp = FPOS(#3) : GET #3,year_no% : PRINT fp;':';year_no% 
130 fp = FPOS(#3) : GET #3,float_num : PRINT fp;':';float_num 
140 fp = FPOS(#3) : BGET #3,byte% : PRINT fp;':';byte% 

150 CLOSE #3 


You should get a list like this: 
0:QL Today 

10:2007 

12:1.5 

18:255 


Which shows that when a file is first opened, the file pointer is at position 0, zero bytes in from the 
beginning of the file. Then, we read in the string, which we expect to be 8 characters long plus the 
two length bytes. So, after we read in the value of a§, the file pointer moves 10 bytes further into the 
file, pointing to the next item, which is the integer value 2007. We read in two bytes for the integer 


variable year_no%, which then leaves the file pointer at 12, ready to read in the value for the floating 
point number float_num, which in turn leaves the file pointer moved 6 bytes further on pointing at the 
byte value ready to be fetched to the variable byte%. 

Hopefully, after that example we can now start to appreciate how convenient to use these internal 
storage formats are for us to use in files, because the numbers of each type are always stored using 
exactly the same amount of bytes in a file, and strings are always their own length plus 2 bytes for the 
length. When it comes to handling individual records in a large file, these "known length’ elements will 
come in very useful. 

We know how to check the file pointer position, but we can set it too, using a special option of the 
GET and BGET commands. If we use a backslash symbol \ after the channel number, this tells the 
command that the number or expression which follows is a file pointer position value. So we could 
change the value of the integer year_no% above and use this to alter the value stored in the file, 
without altering anything else. This will help explain the term RANDOM ACCESS FILE because we are 
able to point to any item in the file pretty well randomly and read or write that item as long as we are 
careful to use the correct data type. To open a file to allow us to read and write to it, we use the 
OPEN command: 


100 OPEN #3,rami1_testfile 
110 year_no% = 2008 

120 BGET #3\10 

130 PUT #3,year_no% 

140 CLOSE #3 


A note here about the various types of OPEN commands. 


OPEN_NEW opens a new file. If a file of that name already exists, it will ask if you wish to overwrite 
it or not, as long as you have Toolkit 2 (if not, it just gives an ‘Already Exists’ error report). Only one 
channel can be opened to this file at a time to write to it - two separate programs must not try to 
change the data at the same time or absolute chaos could result! 


OPEN_IN opens a file for input only. It is not possible to change any of the file content — attempts to 
do so would result in a ‘Read Only’ or ‘Write Protected’ error message. But since it is not being 
written to, several programs can open_in channels to input data from the same file. 


OPEN opens a file in such a way that you can write to the file and input from it at the same time. 
OPEN_NEW creates a new, blank file, whereas OPEN just opens a channel to both read and write 
with that file. That's really the only difference between OPEN_IN and OPEN - both open an existing 
file, but OPEN_IN doesn't let you alter the file at all. If one program has a channel opened to the file 
with OPEN, no other program can do so, but other programs may be able to OPEN_IN a channel to 
that file to input something if really necessary, though this may not be a good idea as it could 
possibly lead to confusion. As long as programs are careful to watch out for new items added, and 
not to make assumptions about file lengths and so on, this may not necessarily be a bad thing. 


If you have Toolkit 2, you will also have an OPEN_OVER command. This one deletes any existing file 
and then opens the file like an OPEN_NEW command. Use with care, of course, it is only too easy to 
delete a file by mistake! 


Think of an example where we have a small call centre handling calls from customers. All need to be 
able to read information from the database. Only the supervisor can make changes to it. So the 
supervisor's QL opens a channel to the database using an OPEN command, while the other 
operators have their QLs open a channel to the file using OPEN_IN. This allows them to search for 
the customer's details, but to add changes of address for example, they have to put the caller 
through to their supervisor who is the only person to have permission (write access) to change 
anything in the database. 


| hope that by now we are starting to get a picture of how the two types of files work. As the names 
imply: 


* SERIAL files - we start at the beginning and work our way through the file in order. 


* RANDOM ACCESS files - we can also jump back and forth by moving the file pointer about within 
the file, meaning we can change a specific entry in the file almost at will, and add more data to the 
end of the file without first having to read it all in. 


Setting up a Database 

A good deal of forethought is needed when designing a database using random access files, since 
changing the structure of a database (adding or removing fields or changing data types) may prove 
difficult. 

We would need to assess how many fields are needed, and how large each needs to be. We also 
need to know which fields are to hold text, which ones integer numbers, which ones floating point 
numbers and so on, so that we can make a note of how much space each field and each record will 
take in the database, to enable us to calculate how far we need to jump from part to part. 

A simple little subscriptions database will illustrate this. We decide that we need text fields for 
subscriber's name, four lines of address, one line for postal code, and a final number field for how 
many issues of the magazine is left until the subscription expires. 


max% = 100 : REMark maximum number of subscribers allowed 
DIM name$(max%—1, 20) 

DIM addri$(max%-1, 30) 

DIM addr2$(max%-1, 30) 

DIM addr3$(max%—-1, 30) 

DIM addr4$(max%-1, 30) 

DIM postcode$(max%-1, 10) 

DIM issues%(max%-1) 


Looking at this we can work out how much space each record is to take, by assuming that each 
string needs its maximum number of characters plus two bytes for the string length. Integer numbers 
need two bytes each: 


name$ needs 2+20=22 bytes per entry 
addri$ needs 2+30=32 bytes per entry 
addr2$ needs 2+30=32 bytes per entry 
addr3$ needs 2+30-32 bytes per entry 
addr4$ needs 2+30-32 bytes per entry 
postcode$ needs 2+19-12 bytes per entry 
issues% needs 2 bytes per entry 


When we use PUT to send these field variables to the file, we will need a total of 
22+32+32+32+32+12+2 bytes (164 bytes in total) per record. In other words, every full entry in the 
database will need 164 bytes. As we set a maximum of 100 entries (the variable max%), a completely 
full database will need 164*100 bytes, or 16,400 bytes. This is the beauty of using PUT and BPUT 
commands, everything can be handled as nice neat predictable lengths of data - so we can jump 
around and fetch any data we like using multiples of the field length. To go to the second entry in the 
database, we simply skip the first 164 bytes. In other words, we skip 152 bytes times the record 
number less one. To get to the 10th entry: 


bytes_per_record * (entry_number-1) 
164*(10-1) = 164*9 = 1476 


So, assuming everyone's membership number is actually their position in the database (the first is 1), 
we can write a line or two of SuperBASIC to calculate where their entry in the database should be: 


INPUT"Membership Number > ';memb_num 
postn = 1476 * (memb_num-1) 

OPEN_IN #3, flp1_database 

BGET #3\postn 


and we are quickly at the member's records, which we can read in with a few GET commands, into 
Suitable variables. 


GET #3,n$ : REMark name 

GET #3\postn+22 : REMark next field starts here 
GET #3,a1$ : REMark address line 1 

GET #3\postn+22+32 : REMark next field starts here 
GET #3,a2$ : REMark address line 2 

GET #3\postn+22+32+32 

GET #3,a3$ : REMark address line 3 

GET #3\postn+22+32+32+32 

GET #3,a4$ : REMark address line 4 

GET #3\postn+22+32+324+32+32 

GET #3,p$ : REMark postal code 

GET #3\postn+22+32+324+32+32+12 

GET #3,i1% : REMark issues left 


By now, | hope you can see that accessing any part of the data is as easy as calculating its position in 
the file and fetching it from there. It is important that even if the fields are shorter than their maximum 
possible length that we pad out the file with enough spaces or zero codes to make sure the record is 
always the right length even if this seems a little wasteful. 


When adding a new record to the file we point to the end of the existing data, remember that position, 
send the same number of bytes as the maximum record size, point back to where this new record 
started, and then PUT the data in the right places as required. 

An easy way to set the file pointer to the end of the file is to use FLEN(#channel_number): 

fl = FLEN(#3) 

BGET #3\f1 


We can then add enough bytes of space by printing the right number of spaces or nulls to the file. In 
this case, our records were 1476 bytes long: 
PRINT #f1,FILL$(" ",1476); 


Then, point to the new position again to start PUTting the new record there: 
BGET #3\f1 

PUT #3,new_name$ 

BGET #34+22,new_addr1$ 

PUT #3,new_addr1$ 


and so on. 


Having a database in a known layout like this makes it fairly easy to search through it as well. Using 
our subscriber database example above, suppose that the subscriber called us, but didn't know his 
membership number. We could then search for his postcode - 


INPUT"Search for which postcode?";pcd$ 
FOR a = O TO number_of_records—1 
REMark work out where each record starts 
fp = a%1476 
REMark now work out how far into the record is the postcode 
BGET #3\fp+22+(4%32) 
GET #3,postcode$ 
IF ped$ == postcode$ THEN 
REMark we have found the subscriber details 
REMark extract them here 


Comparisons and Conclusions 

Learning about how random access files work is good background knowledge for using Archive, 
since it works in a similar though somewhat more advanced way. Many database programs you can 
find for the QL such as K-Base and EasyBase also use these types of principles and so it's all good 
background knowledge, and would also stand you in good stead when it came to writing customised 
databases using the DataDesign or QBase database programming languages. Although not all 
database programs use fixed size records for random access files like this (Flashback and DataDesign 
are notable exceptions which use their own unique format flexible record lengths and so on), the 
grounding in knowing what fields and records are, and a little experience of writing your own code will 
really help you understand what other free and commercial database programs do and to understand 
the possibilities of what all these programs can really do if we can achieve fairly sophisticated things 


just using a few lines of SuperBASIC. 


Don't you just find some of these computer 
terms hard to master? 

Although I'm a bit more confident with them now 
than | was a few years ago, one of the hardest 
things for me in the beginning was terms lke bits, 
bytes, nybbles, words, long words and octets. 
Then came nasties like hexadecimal, binary and 
SO On. 

lf | once had problems with these terms, Im sure 
others must have too, so let's see what | can do 
to put pen to paper to try to explain all these. 
Computer memory, like all things digital, is based 
on ones and noughts, with all values in a compu- 
ter being represented by groups of ones and 
noughts. Any single digit can only have one of 
the two possible values of 0 or 1, so they are 
referred to as “binary” values. The binary coun- 
ting system doesn't use anything other than the 
digits O or 1 (no 2, no 3 and so on), but this is a 
bit useless by itself, so computers use groups or 
clusters of these binary digits for other numbers. 


BIT - one single binary digit, the basic ‘building 
block’ 


BYTE - a group of 8 bits, holding binary values 
from 00000000 (0 in decimal) up to 11111111 (255 
in decimal). The individual bits have equivalent 
decimal values, from left to right, of 128, 64, 32, 
16, 8, 4, 2 and 1, which are used in combination to 
make up values from 0 to 255 in decimal, so for 
example the value of 130 would be represented 
as 10000010 (128+2). Don't worry if you don't 
understand this - binary numbers are not the 
easiest of subjects! 


WORD - a group of two bytes, or more correctly, 
16 binary digits. 


LONG WORD - A group of four bytes, or more 
correctly, 32 binary digits. 


NYBBLE - half a byte, or a group of four bits. 4 
binary digits are enough to hold a value of 0 to 
15 in decimal. 


BINARY - a counting system based on powers of 
2. In other words, each bit in a byte is twice the 
value of the preceding one when you think of the 
equivalent decimal number. 


HEXADECIMAL - A counting system based on 
base 16 numbers. More information below. 


OCTET - group of 8 bits, not necessarily in the 
same byte (e.g. may be half of one byte plus half 
of the next byte). You tend to come across this 
term a lot when discussing the technical side of 
the internet and data communications. 


All computer based counting systems tend to be 
based on powers of two - 1, 2, 4, 8, 16, 32, 64, 
128 etc. 


Decimal is well suited to human counting - last 
time | counted them, | had 10 fingers and 10 toes. 
But computers tend to prefer multiples of 2, and 
16 is such a number, so it makes hexadecimal (a 
numbering system based on the number 16) a 
good system for working with computers, since 
hexadecimal numbers can be stored in a nybbie 
(half a byte). Values from 0 to 15 can be stored in 
four binary digits, and multiples of four bits can 
be held conveniently in bytes, words and long 
words. This is why hexadecimal numbers (or 
"hex" for short) is so widely used when program- 
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ming computers in assembler or machine code 
despite it being relatively hard for humans used 
to normal decimal numbers to understand! 

A hexadecimal number can have values from 0 
to 15, with letters representing numbers higher 
than 9: 


Decimal Hexadecimal 


WOON AMA WNHRE OE 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 


As with decimal numbering, when we need a 
higher number than one digit can hold, we add a 
new digit to the left. So while 15 is the highest 
decimal number which can be represented by a 
1 digit hexadecimal number, 16 becomes 10 which 
is pronounced as “hex one zero’ rather than "hex 
ten’ or “ten” to avoid confusion with decimal num- 
bers. 

Bytes can hold decimal values from 0 to 255 in- 
clusive, which can be represented by two hex 
digits from 00 to FF It is accepted practice to indi- 
cate that a number is a hex value by preceding it 
with a '$' symbol, eg. $00 or $FF Likewise, a bi- 
nary value is usually preceded with a '%' symbol, 
e.g. 00000000 or %1 1111111 


Toolkit 2 has a couple of very useful functions to 
convert between decimal and hex values, and 
between decimal and binary values - these are 
HEX, HEX$, BIN and BINS 


PRINT HEX('FF') 
converts hex FF to decimal, which gives 255. 


PRINT HEX$(255,16) 
converts decimal 255 to hexadecimal, using 16 
bits or four hex digits, which gives OOFF 


PRINT BIN('1100') 
converts a binary number to decimal, which 
gives 12. 


PRINT BIN$(15,8) 
converts decimal 15 to binary, using 8 binary 
digits. This gives OOOOII11 


lf you wish to convert between binary and hexa- 
decimal, the easiest way is to convert the binary 
value to decimal first, using BIN, then use HEX$ 
to convert the decimal value to hexadecimal. 
Likewise, to convert from hexadecimal to binary, 
convert to decimal first using the HEX function, 
then use BINS to convert the decimal value to 
binary. 


Binary and hexadecimal are difficult concepts to 
grasp at first, but you'll need a basic grasp of 
them before you try to tackle assembler or ma- 
chine code programming. 


Addresses 

The QL's memory is based on groups of 8 bits, 
known as bytes, and these are organised in a 
long chain known as ‘addresses’, starting from 
address 0 and each byte after that being one 
location higher in memory. 

As we are talking in computer terms here, the 
amount of memory on a QL is measured not in 
units of 1,000 bytes as you might expect, but 
units of 1,024 bytes, called kilobytes, because 
1,024 is a power of 2. And if the computer had 
millions of bytes, this would be units of 1,024 
kilobytes - Known as megabytes. 

The QL has 48 kilobytes of ROM space (ROM 
stands for Read Only Memory, because the 
program it contains is fixed and cannot be altered 
- once Sinclair programmed those ROMs, you 
cannot reprogram them, all you can do is change 
the ROM completely). 48 kilobytes is 48*1024 
bytes, or 49,152 bytes. 

The QL also has 128 kilobytes of RAM (Random 
Access Memory - the non-permanent type, it 
loses the content every time you switch off or 
reset the QL). 


Memory Storage 

Let us have a quick look at how the QL stores 
information in memory. We've previously seen 
that a single byte can hold values from 0 to 255 
(decimal values). We'll look at how it stores the 
word “Hello” for example. 

The letter H is stored at the lowest address. For 
the sake of argument, we'll assume this starts at 
address 200,000 although in reality it could be 
just about anywhere in memory, depending on 
what else the QL is doing, what size of program 


it is running and so on. Each letter is stored in 
consecutive bytes of memory. Picture each me- 
mory address as being a little matchbox which 
can hold numbers from 0 to 255. The QL doesn't 
store the letters as such, it stores the CODE 
value of each letter These are the same codes 
that the functions CODE and CHR$ understand in 
SuperBASIC. For each letter, the code is found as 
follows: 

PRINT CODE("H") gives 72 

PRINT CODE("e") gives 101 

PRINT CODE("1") gives 108 

PRINT CODE("o") gives 111 


So we need five matchboxes starting at address 
200,000 to store the text “Hello”: 


Address Decimal value Letter 
200,000 2 "H" 
200,001 101 "e” 
200,002 108 1" 
200,003 108 ike 
200,004 111 "0" 


This is how text is stored on the simplest level. 
Numbers can get a bit more complicated and 
we'll pass on that for now! 
The basic idea is that the first letter is stored at 
the lowest address, the second letter at the next 
highest address and so on. 


PEEK and POKE 


These commands work on the actual values held 
at a given address in the QL memory. 


ermine oan 


Introduction 
This is written from the point of view of someone 
living in the British Isles, ie in the region 50° to 
60° North latitude, and 2° E to 12° W longitude. 
For those who live elsewhere, | apologise for this 
insularity; | hope that it still makes sense and that 
you Can easily translate it all to your own coordi 
nates. 

While | was working on the GPS system de- 
scribed in previous articles, | found a lot of mate- 
rial on the Internet about the problems of relating 
the coordinates obtained from the satellites to 
positions on the Earth, and then on to maps, 
especially those produced by the Ordnance 
Survey (OS) in Britain (1) (numbers in brackets 
refer to the references at the end of the article). | 
found that | really needed to go back to basics 


peeeeeeny 


PRINT PEEK( location) 

returns the value of the byte at a given address. 
lf you are using an original QL, the picture you 
see on the screen Is stored in memory starting 
at address 131,072 which is the top left corner of 
the screen. A QL screen needs 32,768 bytes of 
the computer's memory. You can use PEEK to 
read values from the screen memory, although it 
is not very good practice. 


PRINT PEEK(131072) 

tells you what value is stored at the top left of 
the screen. Likewise 

POKE 131072,a_value 

will change it. It is even worse practice to use 
POKE to place values directly into the screen. At 
best, the colour of part of the screen may 
change, at worse you could crash the QL 
especially if you make a mistake. 

While PEEK and POKE work on one byte values, 
there are versions of these commands to work on 
word values and long word values. These are called 
PEEK_W, POKE_W, PEEK_L, and POKE_L. Since the 
QL has 8 bit memory, and these commands work 
with 2 byte or 4 byte values, what they do is to 
work with two or four consecutive addresses. 


Conclusion 

Do not be too disheartened if the last part of this 
article was a bit heavy going. | hope you will 
have found something of value in it and that it's 
made some of those computer jargon words a 
bit more meaningful to you. 


used by the OS to represent the curved surface 
of the Earth on a flat sheet of paper described 
as a Transverse Mercator Projection (TM). This 
article deals with the Mercator Projection (MP) 
found in world atlases; and TM, which is an ex- 
tension of it, will follow later. 

The calculations involved in the official literature 
seemed horrendous, so | had to find an easier 
approach to start with. It seems that what cau- 
ses most of the trouble is the use of an ellipsoid 
model for the Earth, so, to make it simpler, | deci- 
ded to try a spherical model instead; indeed | 
think that it would not be possible to follow the 
more exact calculations without understanding 
this approach first. Thus my ambition became to 


understand the MP and TM projections applied to 
a spherical globe. | easily dug out the equations 
for this simpler case, but | could not find their 
derivations anywhere, so | had to work them out 
for myself: the maths | eventually came up with is 
given in the two appendices. Here | must grate- 
fully acknowledge the strenuous and extended 
efforts Geoff Wicks made to accommodate the 
maths into this article, | could not have produced 
it without this help. 


Introduction 

When | first started | had only a vague idea of 
exactly what a map means to the person draw- 
ing it! AS map users we are mainly concerned 
with the symbols showing what is there, and the 
directions and distances that relate them. To the 
cartographer, as far as it concerns the maps | 
deal with here, it is just a mass of (xy) points on 
the paper each corresponding to a 
(longitudelatitude) pair for something on the 
Earth's surface; the symbols and lines joining 
them are added later This difference is even 
more apparent in that longitudes and latitudes 
are actually angles, but they are plotted on the 
map as distances. This caused me some confu- 
sion, until | realised that angles and Great Circle 
distances (which | will explain later) on the 
(spherical) Earth's surface are equivalent, a kilo- 
metre is one minute of arc in any direction - 
1/60" of a degree ~ to a close enough approxi- 
mation for us here. Because of the distortion this 
does not apply to a map, where everything is 
measured as, say, millimetres on the paper The 
intention is to draw the map in such a way that 
the user gets accurate enough distances and 
bearings when he transfers his measurements 
from the map back to the real world. 
Cartographers, over centuries of mapmaking, 
have devised many ways of projecting the 
curved surface of the Earth on to the flat sheet 
of a map. All necessari- 


size towards the Polar regions. However not 
many people using OS maps {and those of other 
national surveying bodies) will realise that they 
are drawn using a modified form of MP called a 
Transverse Mercator Projection (TM) (3). 

My ultimate aim in this project is to have QL pro- 
grams that will convert between GPS coordi- 
nates and OS National Grid references. The pro- 
fessionals want to get the greatest accuracy 
possible in the conversion, perhaps less than a 
metre; | would be happy with an accuracy of 
about 100 metres, which | think may be attainable 
without going to the ellipsoid model, but | still 
haven't reached a conclusion on this. Any suc- 
cess or otherwise will be reported in a_ third 
article. 

So this article describes how a set of points on 
the Earth's surface, defined by their latitudes and 
longitudes, are translated into x and y coordi- 
nates plotted to make a map, using MP The 
second article will show how this is converted to 
a TM projection, as used by the OS, and also for 
a standardised world wide grid of maps in the 
Universal Transverse Mercator projection(UTM) 
(5). Each article has a QL SB program to go with 
it but bear in mind that | am using a spherical 
model for the Earth, so the results for TM will be 
more approximate than the model the OS uses. 
Accurate formulae and conversions for PCs are 
available on the OS web site (1). 


Mercator’s Projection 

The Mercator projection is often described as 
being obtained by wrapping a sheet of paper 
round the Equator of a suitably scaled transpa- 
rent globe, marking off the meridians as vertical 
lines where the paper touches them, and projec- 
ting the parallels of latitude as if by a light at the 
centre of the globe so that they are spaced fur- 
ther and further apart on the paper towards the 
poles. Although this is an attractive model, and 


distortion, but one of | 
the most useful over |“*y 
small areas is Merca- |: 

tor's Projection (MP), |. 
devised in the 16'"" cen- | 
tury in the Low Coun- | | 


tries, and popularised | ~ 
by Gerard Mercator | 
(1512-1594) (2). It has a |-- 
bad reputation because, |-—.-- 
when used for a World |. 
map, figure 2, it gives |. 
extreme distortion of |° 


| working that | have to struggle to fill in 
- again, and it all gets very tedious. | have 
— tried in those Appendices to list all the 
steps of the processes, but | have 
4 quoted some of the standard formulae | 
use instead of proving them all, that 
would make it far too long. 
| hope you can take a few minutes to 
- look at it before you dismiss it as too 
esoteric; | intend that even if school 
maths is a distant memory, that what is 
here will ‘click’. | was once an engineer 
| - a long time ago - and practiced 
‘what | call ‘pragmatic mathematics” or 
_ "pragmaths’, that is: use it, don’t worry 
», too much about the ifs and buts 
-#— unless they aid in understanding; get a 
™ result, if it looks OK then try it out. 
- That's how | have approached it here. 


gives a qualitative picture of MPit produces a dif- 
ferent spacing for the latitudes; the MP spacing Is 
much more subtle. 

The basic idea of MP is to preserve bearings: 
using MP all bearings are correct, however big 
the area mapped, so it is useful for navigation 
charts, and for gunnery (ie. ordnance); and this 
also conveniently means that, over a small area 
(and this "small area” can be as big as the UK), 
proportions ie. shapes, are quite accurately 
preserved. Lines of constant longitude, ie. meri- 
dians, are drawn on the map as parallel vertical 
lines. Lines of constant latitude are parallel on the 
Earth, and remain so on the map as horizontal 
Straight lines perpendicular to the meridians. 

The real meridians get closer together as they 
converge towards the poles, but, because on the 
MP map they remain the same distance apart, 
distances measure E-W on the Earth become 
longer and longer on the map as their latitude in- 
creases; So, to keep the proportions correct over 
an area, N-S distances, the spacing between lati- 
tudes, must be extended in the same ratio. That 
long sentence is the essence of the Mercator 
projection, what remains is to calculate how to do 
it 

The mathematics involved in the spherical model 
is mostly fairly straightforward trigonometry, with 
a little bit of calculus for a bonus. | have tried in 
the Appendices to explain it all in a way that | 
hope will be useful to those whose trigonometry 
is as rusty aS mine was when | started out on 
this. My first reaction when seeing a closely 
packed page of maths is that | can't be bothered 
to unravel it to find out what it means; usually 
there are missing leaps of “obvious” (to the writer) 


At the top left of figure 5, which goes 
with Appendix 1, is a sideways view of a 
meridian, as if we had taken a cross section 
through the Earth, and we see that the radius of 
the parallel of latitude at »@ degrees North is 
R¥cos(¢). | use the programmer's asterisk * for 
multiplication, instead of times or a dot (x or) 
which could be confusing in text, although | keep 
the dot as a product in some of the diagrams. 
Before considering the rest of Appendix 1, let me 
introduce my idea of a Whatever as a unit of 
measurement. As it suggests you can make a 
Whatever whatever you want, the only rule is 
that you must be consistent. By making the 
radius of the globe "one Whatever’, we can then 
drop it from the calculations until we get to the 
point of working out the scale of the map: engi- 
neers will recognise this as using "per unit” calcu- 
lations. 
The x distances on the map are direct plots of 
the angles represented by longitudes: the scale 
of degrees E-W stays the same at all latitudes. 
But the convergence of the meridians means the 
distance between them measured in kilometres 
decreases, since the radius of the parallel at a 
high latitude g is just cos(y) times Whatever, 
reduced from one Whatever at the Equator True 
E-W distances on the Earth, when they are repre- 
sented on the map, have to be increased in the 
same proportion, that is 1/cos(g), or sec(g). To 
preserve shapes and bearings, North-South dis- 
tances must be increased by the same amount. 
However, as explained in the Appendix, we can- 
not simply plot the latitude » as sec/{g); we have 
to take account of all the other latitudes already 
increased as we go from the Equator to our cho- 
sen point. 


never actually getting there (4). You can 
see the difference by looking on a 
globe at Paris and Vancouver For a con- 
stant bearing route, Vancouver, 49° 30' 
N, is pretty well due West of Paris, 48° 
50’ N, distance 4934 Nautical miles (Nm). 
| To fly directly there on a Great Circle 
route you would head NW from Paris, 
pass over Greenland, and approach 
Vancouver from the NE, but fly only 
4243 Nm, nearly 7OONm shorter. 


To go further we need a little bit of calculus, so 
the rest of Appendix 1 is devoted to that, and 
States the resulting formula for the latitude: 
y=In(tan(g¢/2+ 2/4). see the Appendix for the 
meaning of the other symbols. There are at least 
four other versions of this formula you may come 
across in other texts (2). 

| wrote a SB program to test this all out. The re- 
sults are in figures 1 to 4. After a lot of frustrated 
searching | found a set of data coordinates for 
the world's coastline on the Internet (6) and used 
that to draw the maps. Figure 1 is drawn the most 
obvious way, without any attempt to reduce 
distortion, on a rectangular grid using the same 
scale for both latitude and longitude. Also on 
here is a line on a constant bearing of 45 de- 
grees. Because the meridians, which taper to- 
wards the poles, are spread out on the map, this 
line is curved, so you could not easily lay off a 
bearing on this map for navigation. The spread- 
ing meridians also account for the apparent 
squashing of the land masses towards the poles. 
Figure 2 uses the same data, but now the lati- 
tudes are spaced out using MP resulting in a 
different distortion, but the constant bearing line 
is now straight. | have included figure 3 to show 
the nature of this data. Figure 4 uses a different 
set of data, more about that later. 

For navigation the shortest route to follow, eg. 
for a ship on the ocean or an aircraft, is a Great 
Circle, which is the line formed at the surface of 
the Earth by an imaginary section that goes 
through the centre, such as depicted on the left 
of figure 3. Meridians and the Equator are Great 
Circles, but all other lines of constant latitude are 
not. A Great Circle, which can be at any inclina- 
tion to the Equator, is the shortest distance bet- 
ween two points: but inconveniently not the 
same as a line of constant bearing, called a 
Rhumb or Rhumb Line by navigators and a 
Loxodrome by mathematicians, which would be 
easy to plot, and easy to steer Drawn on a 
sphere a Rhumb forms a graceful spiral conver- 
ging on the poles, approaching ever closer but 


Because the heading for a Great Circle 
route is constantly changing, it is often more 
convenient to fly or sail a series of short, 
constant bearing, legs that approximate to it. 
Books on navigation give formulae for getting 
the bearing to set off on a Great Circle route; 
then, after a suitable interval the position is 
checked, and another leg calculated on the 
same Great Circle route but from this new 
Starting point. I'm not a practical navigator, just 
interested in the way it works. In these days of 
computers and GPS, navigation must be a 
subtle and complex business. | have recently 
come across a program that analyses this for 
ships (8); it looks brilliant, although | haven't had 
time to explore it properly yet. It claims it "may 
be for the professional navigator what the 
Spreadsheet was to accountants.” 


Comments on the Program 

| hope that most of what is going on is 
apparent from the REMarks. 

There's a choice of three maps by typing 1, 2 
or 3 at the prompt: | have left out any input 
checks to save space. You can change the 
size in pixels of the Window to suit your 
screen: the SCALE takes care of things by 
being given the height in degrees, then the 
width is taken care of by the proportions of the 
window. Remaining parameters are the 
longitude and latitude in degrees of the bottom 
left of the window. You might expect that the 
height of a world map would be 180° pole to 
pole, and the bottom left at -90°, but it must be 
extended to allow for the distortion produce by 
MPI use asprat to adjust x-values to make a 
square look square on my display, you may 
have to alter its value. 

Line 350 you may need to change to suit your 
own data. The assumption is that it is a text file 
where each line has a latitude then a longitude 
as fixed or floating point numbers. The format 
must be so that line 470 and 480 read and se- 
parate them, and it is then simply a matter of 
plotting this point suitably scaled as in line 520. 


have used for the maps shown is 
564 Kb, and defines over 80000 
points, far too much to reproduce 
here. And the CIA data is 30Mb com- 
#7) pressed, expanding to over 120Mb. 
My system, with a dial-up modem, 
takes five minutes per Megabyte ... 
So you're on your own here, if you 
can download the data then you 
can plot the maps for yourself. 
However Geoff Wicks has downloa- 
ded the CIA data and kindly sent me 
a copy, already converted to a for- 
mat to suit my program. For compa- 
rison figure 4 uses the CIA data for 
Europe over a similar area as figure 
| 3. It includes national boundaries, ri- 
vers and lakes as well as coastlines. 


Longitude is scaled by asprat and latitude by the 
FuNction Merc. One brilliant property of SB is that 
points plotted outside the window are simply 
ignored, so there is no need to check this for the 
GB choice, but it does take a long time to plot as 
most data is off the screen: it is included to show 
the nature of the data | used. | could check and 
not plot points off the screen but | would expect 
that to take just as long to execute. 

That's all there is to the main program. For the 
subroutines: in Merc a longitude is expanded 
using the formula derived in Appendix 1. And for 
the rest: more than half the program is taken up 
with drawing the grid of meridians and parallels, 
and the line of constant bearing. The latter is a 
plot of opposite corners of small squares with 
the same increment of (suitably scaled) latitude 
and longitude to give a 45° heading. For the MP 
map | found that attempting to use the formula 
just meant applying it and then undoing it, so | 
settled on the assumption that it is a straight line . 


DATA 

Of course to draw the maps you need a file of 
data - a list of the latitudes and longitudes of 
enough points to make reasonable outlines, 
without nasty gaps. | did think of producing a mo- 
dest set for myself, but that was far too 
long-winded and boring, so | spent some time 
looking for data on the Internet, eventually finding 
a set that | could download (6). It's not a particu- 
larly good set, an attempt to draw lines between 
the points showed up a lot of spurious data, but 
as a world map the points merge to give the ap- 
pearance of solid lines. Later | searched again (and 
again and again - it's surprising how well this data 
is hidden) and came across the CIA data (7). 
Unfortunately all these files are huge - the one | 


Final Remarks 

| enjoyed all that, and the investigation that got 
me here. But it is just a summary of a long fum- 
bling quest: | feel rather like someone who has 
solved a maze, and triumphantly presents the re- 
sult as an inevitable and obvious wiggly line lead- 
ing from the entrance to the exit, missing out the 
times spent floundering about, getting lost, and 
all the false trips down dead ends that were 
made along the way. | am pleased to have got 
through, | hope you find it pleasing too. 
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The Mercator Projection 


The MERCATOR PROJECTION 


Greenwich 
R-cosi¢)! North Pole Meridian 
Toy aster | Eee Difference in longitude is dA 
oe =e Difference in 
P @ | | latitude is 
— dy | P. db 
/ SR 
ri . dx 
i a y 
' pr. | ro X — 
Equator__ R {__\| R is the radius of the earth Equator 


On the left we have a cross section of the Earth along the meridian containing the point P at (X,¢), Le: 
longitude (not shown), and latitude g We see that the radius of the parallel of latitude is reduced 
from R at the equator to R*cos/¢) at PTo make the meridians on the map parallel all the way up from 
the equator, at this latitude we have to increase any East-West dimensions on the Earth by 1/cos/¢) ie. 
sec(¢}.| assume that we apply suitable scales so from now on we can work in whatevers, and forget 
R and other factors in the following formulae. Angles can be in degrees or radians, as long as we are 
consistent, but see the caveats at the end of this note. 

The right hand diagram shows the representation of the point P on a map, at (xy) where x and y are 
the scaled representations of the longitude and latitude, respectively, of P , as seen looking from the 
left in the first figure. We use x to measure horizontally on the paper, and y vertically, the same as for 
drawing graphs. 

The small area on the globe, greatly exaggerated in the diagram, bounded by two parallels of latitude 
and two meridians, at P will become the rectangle dx,dy on the map, and its width d(d) on the Earth 
will expand on the map to a width sec(g)*a(X) on the paper Since sec(g) increases with » on the 
globe, the top of the area will expand more than the bottom on the map; to avoid this we have to 
imagine a(d) and a(¢) to be so small that this distortion does not apply to any measurable extent, and 
we can apply the same sec({¢) to the whole of the area. For longitude, it may already be obvious that 
X = sec(g)*d but it is useful to obtain it the way we will need later for the latitude, that is: we add up 
the widths of all the small areas from the Greenwich Meridian to P: 


X = A(ro)*seC(bp) + Al(/1) *SeC(hp) + A(2.2)*SEC(fp) + ... + A(/p) *SeC(Pp) 


ie. the sum of all sec(g,)*(d(X,)) with n going from 0 at Greenwich to p at PBut sec/¢,) is a constant as 
g, |S the latitude of Pso: 


X = SeC(Pp)*(A(20) + A(A1) + A(A2)+ ... + A(Zp)) 


as we expected. 
To maintain proportions, the height of the area d/g) must expand on the map in the same ratio, to dy = 
sec( g)*d{¢), and similarly for every dy from the Equator to Pso: 


y = A(go)"sec(ho) + A(p,)*sec(p:) + A(pz2)"sec(pz) + ... + A(bp)"“SeC($o) 


Now the sec(¢,) are all different so we cannot simply make y equal to ¢*sec(y,) : we must do the 
addition bit by bit. This summation of the dys is a classic case for calculus, or to be precise, 
integration, which will nicely add up the increases for us, for all the vanishingly small areas between 
the Equator and P Written as an integral it is: 


Pp p 
y= fay = fsec(d)do 
0 0 


The "long S’ means ‘sum’ and the 0 and ¢ at its ends are the limits of the summation. It means "add up all the 
small increments dy of y, that is sec(y}*ad(¢), from 0 to g when all the d{g) are made vanishingly 


small’. | must admit | could not evaluate this myself without help, but the result is given in textbooks as: 


y = In(tan(p/2+7/4)) 

| was not happy to leave it like that, | had to verify the result, and my proof is given in Appendix 2. In this formula 
In is "the natural logarithm of’ or “logarithm to the base e”. The symbol é is ubiquitous in mathematics, like 
a, but also like wcan be treated like any normal number: its value is approximately 2.71828. 

We can also use calculus for the longitude: 


a J as = J see(p)aa 


giving sec(¢g,)*Xas before. 

A note on logarithms. If p =a’ then we have y = log,(p), read as "y is the logarithm (or log) of p to the base 
a’. This is the definition of a logarithm. Correspondingly p is the antilogarithm or antilog of y. The base a 
can be any number but e turns up a lot in mathematics. For example 9=3*3=3**2, where ** means “raised to 
the power’, so 2=log.(9). Note also that 3=log.,(27), 9*27=243 and 5=log.(243): it is no coincidence that in 
the logarithms 2+3=5. In this way multiplication can be done by adding logarithms and taking the antilog of the 
result. This extends to division, by subtracting logs, and to numbers with fractions; and, with base a=10, is the 
basis of a slide rule and log tables, and was the way engineering and scientific calculations were done until 
calculators and computers came along and took the fun out of it. 

These formulae, for x and y, with suitable whatevers, can be used directly to plot P(X) at (xy) However they 
tacitly assume that » and ) are in radians, so you may have to adjust the scales for angles in degrees, 
multiplying either or both by 180/ ato make the x and y scales the same at the equator See the program listing 
for an example of this. To use degrees and logarithms base 10, note that In(x) = 2.3026*log,,(x), (| use “= to 
mean ‘approximately equal to’) and also 2/4 = 45° giving: 


y » 2.3026-log ,,(tan(p/2+45°)) 


Proof of the Mercator Formula with a little bit of Calculus thrown in 
tr) 
To prove the Mercator formula, we must show that f sec(p)dd = In(tan(@/2+r1r/4)) 


Using f(x) to represent some function of x, called f 

here, that is an expression whose value is dependent on x (anything else in the expression is 
assumed to have a constant value over the range considered), we can start with the Fundamental 
Theorem of Calculus, one form of which is: 


if v(x) = J flax then d(y(x))ldx = f(x) 

Read this as: if we integrate f(x) with respect to x to obtain y(x), then if we differentiate y(x) with 
respect to x we obtain the original f(x)’. In other words, integration is the reverse of differentiation. 
Note that y is just another function of x related to f(x) by this formula, and of course we could employ 
any letters instead of f, x and y; these are what it is conventional to use. 

A real mathematician would state all sorts of conditions for these rules to hold; | am sure they won't 
give us any problems here. 

Although differentiation is a routine process - you simply follow the rules and get the answer - 
integration is a matter of guessing what function, will, when differentiated, give you the original 
function - that is, applying the fundamental theorem. Although there are a lot of tricks you can use to 
make the guesswork easier, it is usually not a straightforward process, but people have persevered at 
integrating sec(g) until they eventually came up with the formula above. But for us, the easier path is 
to differentiate In(tan(e/2+ 1/4): if we get sec/y) then we have the proof. 

In terms of functions, note that these are functions of gonly since z/4 is a constant, approximately 
0.7854, although it is customary to keep it in the exact 2/4 form, and | will stick to that, and use 2/2 
later as well. 

Formula (1) is a function of a function in the jargon, ie. It is the In (a function) of tan( g/2+2/4) which ts 
another function involving tan and » We can write it as: f(g(g)) where f() is Inj), and g{¢) is 
tan(g/2+ 2/4). The rule for this is d/dx(f(g(x))) = d/dx(f())d/dx(g(x)), that is we differentiate the f{) and 
multiply it by the differential of g(x). Applying it to our formula, this can nest on to further levels: 


d/dx(f(a(h(x))), where in our case now g() is tan and h() is (g/2+7/4). 

Because | am accustomed to this use of the letters, | will henceforth use U instead of h so that now 
Ul ¢)=(¢/2+ 2/4). This makes the equations simpler and typos less likely; so now we need to show 
that d/d{ ¢)(In{tan(U)))=sec(¢), Le. differentiating In(tan(U)) with respect to ge gives the result sec ¢). 

To do the differentiation we need some basic rules, and the first is for Inf), and it is d/dx(In(x)) = 1/x. It 
follows from: If x=e” then y=In(x), which , as | described in appendix 1, is the definition of In(x). One 
definition of e(.) itself is that it equals its differential: d/dx(e*)= e*. So d/dx(In(x}) = dx/dy = die’/dy = e” 
= x giving d/dxiIn(x)) = d/dx(y) = dy/dx = 1/dx/dy)) = 1/x 

For the tan function there is a standard basic textbook rule: d/dx(tan(x)) = sec?(x). This is the form it is 
usually stated, but soon we will need sec?(x) = 1/(cos?(x)). | don't have the space to derive these here. 
So now we have enough to start the differentiation, with a function of a function as above (| have put 
this in as a graphic in order better to show the structure of the formulae): 


Fpuintean(t = ee : a ag hia = 


: “see (U)-d iy 
fan(U) dab 


tan(U’) ens d db 


which simplifies a bit to 
cos(U) >. d(U) cos(U) I (LU) 1 d(Uj 


~ sin(U) Senee dob ~ sini U) cos? (U a6 dob ~ 'sin(U)-cos(U) dd pb 
Another standard trigonometric formula, which we will need in a moment, is: sin(x+y) = sin{x)*cos(y) + 
cos{x)*sin(y). 
From it we can easily derive a double angle formula by putting y = x = U in this formula. We get 
sin(2U) = 2*sin(U)*cos(U) and from this , by reversing and inverting it we have: 

] ? 2 a{U) 


sin(U)-cos(U) . sin(2U) sin(2U) do 


Expanding U in sin(2U) gives sin(2U) = sin(2(¢/2 + 2/4) = sin(ge+ 2/2) so, using the above formula for 
sin(x+y) and substituting x= gand y=2/2, we get sin(gtx/2) = sin(ge)*cos|m/2) + Cos(¢)*sin{ x/2) 
Now sin(a/2)=1 and cos{a/2)=0, so: sin(2U) = sin{ y+ 2/2) = sin(g)*0 + cos(¢)*l = cosy) 


SO NOW Fp lintian 12+ 14) = 


Putting this together we have reached this point: 


d I d(U) 2 d(l) 
do EN sin(U)-cos(U) do cos(p) do 


50 we now need to differentiate the oa part (and | have changed the notation slightly): 


d(U\ldg@ = dldpl(U) = dldg(p/2+n/4) 


There is another standard rule to cover this case of two functions, g/2 and 2/4, added together: The 
rule is that d/dxif(x)+9(x)) = d/dx(f(x)) + d/dx g(x)) or: to differentiate a function that is two further 
functions added together (or subtracted) we differentiate the two functions and add (or subtract) the 
results, So d/d{(g)(e/2 + 2/4) = d/d(e)(e/2) + d/d{y)(2/4). Now the differential of a multiple of the 
dependent variable , in this case 1/2 of ¢ is just the multiple itself, 1/2; and the differential of a constant 
such as pi/4 is Zero; giving: 
d(U\ldd = d(hl24+nl4\ldd = d(bl2lddtdi(rl4\ldg@ = 1/24+0 = 1/2 
Putting all this in we have: 
2 Z 


4 tinltanthiaeadiays = 8 ntantt) = Tl2 = 
do do cos(d } cos (dp ) 


= sec 
. $0 It's proved. 


Editor's note: For technical reasons, which we discovered too late to change, the Greek letter "phi" 
appears as lower case in the text and upper case in the graphics throughout this article. Please 
accept out apologies for this. 
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CLS #0: INPUT #0\\" Maps: 1 GB, 2 World (plain), 3 World 


(Mercator) :"!a$ 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
4:70 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 


gos 
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REMark Check on a$ omitted 
choice%=a$ 
COLOUR_PAL 
CLOSE 
ww%= FOPEN(con) 
REMark Adjust the window size to suit 
REMark your screen — e.g. this works: 
REMark WINDOW #ww%,128,64,0,0: CLS#ww% 
REMark But, for 1280 x 1024 screen 
WINDOW #ww%,995,650,0,20: CLS#ww% 
PAPER #ww%,1: INK #ww%,0: CLS #ww% 
REMark Scales of maps are in degrees 
IF choice%=1 THEN 
REMark For GB: 15 high, bottom left at 10W, 50N 
SCALE #ww%,15,-10,Mere(50) 
ELSE 
REMark 320 high allows for Mere expansion 
REMark beyond the undistorted 90S to 90N 
REMark Bottom left at 180W, 150S 
SCALE #ww%, 320,-180,-150 
END IF 
asprat= .75 
fce%=FOP_IN(wini_Worldcoast_coast0. Ins) 
IF fe%<0 THEN PRINT "NoGo": STOP 


grid 
Bearing 
INK #ww%, 0 


REPeat loop 
IF EOF (#fc%) THEN PRINT #0\\"end": STOP 
INPUT #fc%,x$ 
REMark Some lines (separators?) are: 
IF '*' INSTR(x$) THEN NEXT loop 
lat= x$ 
long= x$(' ' INSTR(x$) TO) 
REMark The data file has oddities that spoil any 
REMark attempt to plot the coast with lines thus: 
REMark LINE#ww% TO asprat*long, lat 
POINT#ww%, asprat*long, Merc(lat) 
END REPeat loop 


REMark End of main program SSS S625 S5 SSS >>>S S555 S552 >= 


DEFine FuNetion Merc(x) 
REMark Work in radians, but lat long ete in degrees 
REMark PRINT Let%,x 
IF x==0 THEN RETurn 0 
IF choice%= 2 THEN RETurn x 
RETurn (180/PI)*LN(TAN( (x*PI) /360+PI/4) ) 
END DEFine Mere 


te = pene RAR SRS 


eos ect Trent go 


650 DEFine PROCedure grid 

660 LOCal i, bot, top 

670 REMark Not plotted for GB map 
680 IF choice% = 1 THEN RETurn 


700 REMark Latitudes at 15 degree intervals 
710  ##REMark Emphasise Equator and 90 degree meridians 
720 IF choice% = 2 THEN 


730 REMark Whole world map on recangular grid 

740 bot= -90: top= 90 

750 ELSE 

760 REMark For Mercator avoid infinities at poles 
770 bot= -75: top= 75 

780 END IF 

790 FOR i = bot TO top STEP 15 

800 IF i==0 THEN INK#ww%,9: ELSE INK#wwZ,11 


810 LINE #ww%, -180*asprat,Merc(i) TO +180*asprat, Mere(i) 
820 END FOR i 


840  REMark Meridians at 15 degree intervals 
850  REMark same on all maps 

860 bot= Mere(-89): top= Mere(+89) 

870 IF choice% = 2 THEN 

880 bot= -90: top= +90 

890 END IF 

900 FOR i = -180 TO +180 STEP 15 

910 IF i==0 OR ABS(i)==90 THEN INK#ww%,9: ELSE INK#ww%,11 
920 LINE #ww%, asprat*i,bot TO asprat*i, top 
930 END FOR i 

940  REMark FOR j = -180 TO + 180 STEP 15 

950 END DEFine 


970 DEFine PROCedure Bearing 

980 LOCal x,xx 

990 ~=6IF choice% =1 THEN RETurn 
1000 IF choice% =2 THEN 

1010 FOR x= -85 TO 85 STEP .1 


1020 xx= (180/PI)*LN(TAN((x*PI) /360+PI/4) ) 
1030 POINT#ww%, asprat*xx, x 

1040 REMark POINT#ww%,—asprat*xx,—x 

1050 END FOR x 

1060 END IF 


1070 IF choice%=3 THEN 
1080 FOR x= 0 TO 150 STEP .1 


1090 POINT#ww%, asprat*x, x 
1100 POINT#ww%, asprat*—x,—-x 
1110 END FOR x 

1120 END IF 

1130 END DEFine 

1140 : 


1150 DEFine PROCedure backup 
1160 SAVE winil_WorldCoast_Qtest_bas 
1170 END DEFine 


Lo 2 
Steve Poole writes: 
In your last QL Today article ‘End of the Season’, 
you asked if anyone could write a program to 
calculate a person's Carbon Footprint. 

This program would have to be very long, as it 
would have to calculate the total footprints of all 
the goods and services you consume, with each 
one assessed from the extraction of the raw ma- 
terials to the transformation, transport and recy- 
cling overheads both for currently consumed arti- 
cles and also to fixed assets such as old houses, 
holiday homes etc, right down to the environmen: 
tal costs of your birth, funeral and health expen- 
Ses. 

The simple solution is to let experts do the work 
for you. 

Just look up Carbon Footprint Calculator on 
Google, or better if you speak french, ADEME for 
a highly detailed breakdown showing you how to 
drastically reduce the carbon value of whatever 
you do in life. 

But in a nutshell, most scientists agree that we 
should divide our energy consumption by four 
within the next few years and switch to sustain- 
able energy sources. We can then slowly elimi- 
nate greenhouse gases by converting trees into 
organic fertiliser This is fully realistic, only the oil 
company shareholders and governments do not 
promote it, because of the vast amounts of reve- 
nue they make from high energy use. But there is 
no alternative: either we adapt to the limitations 
imposed by planetary resources or we destroy 
most life forms on earth. 


Colin Mckay writes: 

To assist people obtain Building Warrants | calcu- 
late wind loading on buildings. It is a tiresome job, 
& | have programmed, on the QL, the calculation 
as far as calculating the wind pressure. Three 
topographical factors are needed: 

The orientation of the building, because charac- 
teristic wind speeds vary with direction. The ele- 
vation of the site, because wind speed varies 
with height above Mean Sea Level. The rough- 
ness of the terrain crossed by the approaching 
wind, principally whether open country or town. 
There is a possible fourth which is the variation 
of the ground immediately windward of the site, 
€.9. escarpment. Not required so often. 

The most awkward item to obtain is the height of 
the site. When this is located on the 1" OS map 


See wnat sere ae nah scanccnrcetec tnd 


that | possess, this can help, but not where the 


site is in a built-up area. Otherwise | use Multimap 
on the Internet. It would save time if there were a 
topographical model. These do exist in commer- 
cial programs which do the entire wind loading 
calculation. It is less costly to use the QL, but 
there is no topographical model to use on it. 
When the architect provides an adequate site 
plan, and a post code, the orientation of the buil- 
ding can be obtained again from Multimap, or 
Streetmap. 

Wind loading obviously cannot be accurately cal- 
culated, but the game is to present the most 
plausible numbers which satisfy the design code 
(BS6399:Part 3) and the circumstances. 

| believe that at least one commercial program 
gives heights based on averages over 1 km 
squares. A trifle coarse, but better than nothing. 
Possibly you have not realised that the modern 
timber frame houses have to be designed to 
resist wind loading. Another Engineer told me 
that when the wind is strong and in a particular 
direction there are creaking noises from his 
house, which he attributes to the wind on the 
roof deflecting the timber walls, which causes 
the roof to rub against the brickwork. There 
ought to be a gap between the top of the 
brickwork and the underside of the roof eaves, 
and he presumes that there is no gap. 

A QL topographical model would be useful. 

ED: Colin McKay sent this to me as a personal 
email, but agreed to its publication in QL Today. 
Although Colin thought it too specialist for inclu- 
sion in the magazine. | felt it was an interesting 
example of a professional use of the QL. Our 
GPS and mapping articles have interested a 
number of readers and we would be pleased to 
hear from other readers about their interest in 
mapping software or other professional use of 
the QL. 

In a subsequent email Colin wrote that he would 
like to see Wind Speed maps reproduced on 
the QL: 

‘The wind loading calculation starts off with the 
value of the basic wind speed at the site. The 
Engineer just looks at the map, and decides by 
eye where the site is on the map, then reads the 
speed to one decimal place, as assessed by 


eye. 
Probably in the commercial wind loading 
programs 


the Engineer enters the Grid 


Reference of the site, and without even seeing 
the map, the speed is displayed on his screen, 
and the value is fed into the calculations. The 
value may even be to an accuracy of two deci- 
mal places, but the accuracy is spurious. 

The aspect which | am chasing Is convenience, 
not accuracy, because to complete the loading 
calculation often ‘assessments’ have to be 
made, which are little better than guesses. E.g. a 
simple rectangular plan building with a simple 
end-to-end ridged roof conforms to the data 
provided in the BS, but when dormer windows 
and towers are added to the roof profile who 
knows what pressures and suctions the wind 
creates? The Engineer just adopts a value from 
his calculations, which ought to give him reaso- 
nable protection against being sued. 

My method of working is that the construction 
drawings appear on the PC, and the computer 
calculations appear on a QL. Although | have 
QPC2 | prefer to have the drawing available 
whilst | calculate, and | would have the wind map 
on the QL, either as a separate program, or as 
part of a wind loading program. Separate seems 
to be preferable, because large means compli- 
cation, and sometimes groping around a long 
listing, which is time consuming.” 


Norman Dunbar writes: 
Subject: Response to Wolfgang's article on 
using QPC under Linux (Vol 11, issue 4) 


Hi Geoff, 

| was wondering to myself about getting QPC to 
run on Linux and remembered that | had read an 
article in QL Today so | hunted in the as yet un- 
packed boxes and found Volume il Issue 4 
where Wolfgang Lenerz has an article on this 
very subject. 

Reading through it | noticed that Wolfgang 
seems to be having a lot of problems with 
Linux's habit of considering upper and lower 
case letters to be different, even in file names. 
As a Suse user of some time, | know an easy 
way around Wolfgang's problems, as follows: 

in the command line (shell) start typing the first 
few letters of the file name, then press TAB. The 
Shell (Bash in my case) will auto-complete as 
much of the remainder of the file name as possi- 
ble. If there are two or more files with the same 
start to their name, they will then be listed and 
you can type one or more characters to make 
the name unique again, then press TAB again. 
Continue in this manner until the full file name has 
been entered. 


So, on page 15, where Wolfgang is explaining 
how he had to run the ‘rom’ command and type 
the full name of his rpm file correctly, he could 
have made life so much easier as follows: 
rpm -Uvh wine< TAB» 
This way, unless there were more files in the /tmp 
directory, where he was working at the time, with 
names beginning with the word ‘wine’, the shell 
would have typed in the remainder of the file 
name and Wolfgang wouldn't have had to be 
careful about getting each and every letter in the 
correct case. 
Additionally, he explains how he had to install (or 
unpack) the rom file by running a shell and be- 
coming root etc etc. Too much work there Im 
afraid. There is a much easier way than this. 
In Konqueror, the file browser, navigate to where 
the rom file has been saved after download, and 
click it (ok, you may have to double click - it de- 
pends on how you have set up your system). 
Konqueror will open a page giving details of the 
purpose of the rpm file. At the top is a button 
with the legend ‘Install package with YAST' - click 
this. 
After a small delay, you are prompted for the root 
password. Enter the root password and YAST will 
open up and install the rpm file. No messing 
about with shells, becoming root and so on. 
It has to be said however that running the ‘rpm’ 
command as described by Wolfgang is much 
quicker then using YAST as YAST goes off and 
makes sure that all its repositories are up to date 
and so on. 
While I'm not a Linux expert, it does have many 
ways to make life easier - especially when typing 
in a file name. 
The auto-completion of file names works down a 
directory structure as well, so to type in the file 
name 
' nome /norman/downloads/OraclexE/oracle 
-xe-10.2.0.1-1.0.1386.rpm' for example - 
say to install it, | would, as root, type the following 
: rpm -ivh /ho« TAB» n< TAB> dow: TAB» Ora< TAB» ora< TAB» 
Each time | hit the TAB key, the shell will fill in the 
remainder of the file name as far as it can at that 
point. SO the above combination of keys would 
give the following results : 
/ho< TAB» gives /home/ 
n< TAB» Gives /home/norman/ 
dow TAB» iveS /home/norman/downloads/ 
Ora: TAB> gives 
/nome/norman/downloads/OraclexE/ 
ora: TAB» GiVeS 
/nome/norman/downloads/OracleXE/oracle 
~xe~10.2.0.1-1.0.1386.rpm. 


| can use as many letters as | like before pressing 
TAB, the more unique | make it, the less chance 
there is of me having to try again. If, when | 
pressed TAB, the shell responded with nothing, 
then at that point | know | have typed a wrong 
character in the filename, and can correct it (with 


backspace) and type the correct one. 

Now, hopefully, | can get on and install wine and 
QPC under SuSE 10.3 and make it work. I'm 
disappointed by Wolfgang's findings that QPC 
runs extremely slowly under Linux and will be 
looking into this when | get things sorted out. 


We are supposed to be tinkerers, and having 
seen Hugh Rooms articles on GPS (QL Today 
Volume it, issues 2.3 and 4) which involves 
external equipment in the form of the GPS 
receiver. | have been playing with Hugh's program 
with two types of GPS receiver and | am 
planning fo do a follow up article of my 
experiences on this subject. However | thought it 
may be a good idea to look at other forms of 
interfaces that we could use that may have a 
wider interest. Do let QL Today or myself know if 
these technical hardware/software projects are 
of interest. Even if you don't build/use them they 
may still be of interest. 

In the last few months there have been two pro- 
jects published in Everyday Practical Electronics 
magazine which could be of interest. One being 
an oscilloscope project which would also make a 
fairly fast, by QL standards, (up to 40Khz) 
analogue to digital converter it also has two 
channels. So could be used for stereo audio ap- 
plications. This project is published in two parts, 
in the August and September 2007 issues of the 
magazine. The other project of use is the Serial 
/O Controller project in the Jan 2008 issue of 
said magazine. In both cases these projects use 
the standard RS232 interface to the computer. 

| have chosen the Serial I/O Controller project 
first since it is the simplest of the two projects. | 
will cover the oscilloscope in a future article. The 
other reason for going with the Serial I/O Con- 
troller is it will work with all QL systems, since it 
communicates at a low baud rate of 2400 Baud. 
The oscilloscope project needs higher than 9600 
Baud rate which not all QL system can support. 
The original article is not totally correct in saying 
it will work at 9600 Baud rate, more on that when 
| cover that project. 

lf you can solder then you can make this project. 
The PCB and the components are easily 
available. The PCB from Everyday Practical Elec- 
tronics(1) publishers and most of the components 


from Farnell(2) for example, but there are other 
places such as RS, Rapid etc. If you do not have 
the ability to program a PIC (Microcontroller chip), 
then pre programed PIC’s can be obtained from 
Magenta Electronics(3), who advertise in the 
magazine. The cost of the board project is about 
£50.00 this will vary depending were you pur- 
chase, so please do not hold me to this, it is just 
a guide. You will also need to add some form of 
power supply the board needs between 
9-15VDC with 100mA capability should be more 
than enough, my test board takes 25mA at idle, 
with all the LED's lit and relays closed it rises to 
about 50mA, so one of these wall plug in low 
voltage type units would be good and safe. 
There is a safety diode on the supply input, so if 
you do connect to the power input incorrectly 
you will not do any damage. Also you will need a 
9 way D Type serial cable, neither of these items 
is included in my guide price for the project. You 
do not need many tools either side cutters to cut 
the component leads, small pliers to bend com- 
ponent leads, soldering iron 15W, solder good 
light, and magnifying glass so you can check all 
your soldered joints and also check for any 
shorts across PCB tracks. Also a smail screw 
driver A cheap digital multimeter some are as 
low as £5 would also be useful. For example 
build the board, but do not insert the PIC, or 
other IC's except the input voltage regulator 
(REG1), power up the card, the LED (Light 
Emitting Diode) LED4 should light up, if not 
disconnect the power and check for shorts and 
the polarity of the LED. With the multimeter you 
can check the voltage output from REGI is 5\V If 
the LED is lit and you have 5V things are looking 
very good. The instructions in the original EPE 
article are fairly good, | built mine from the in- 
structions to make sure they were accurate for 
this article, and did not find any problems and my 


board worked first time. However | must come 
clean and say | am an electronics engineer by 
training so | do have an advantage, but | tried to 
look at this as if an inexperienced constructor 
They even give you the resistor colour codes to 
follow. The most important diagram is the one on 
page 18 which gives you all the component posi- 
tions and orientations, components you need to 
watch for in this regard are some capacitors, 
diodes, transistors, LED's (note the short leg on 
an LED's is K(Cathode), and the IC's(Chips), watch 
for the notches or dot’s, the pin next to a dot Is 
pin 1, which will be the same end as a notch. You 
will also need some 24SWG tinned copper wire 
for the wire links on the board of which there are 
34. | strongly advise that you use IC sockets, 
there are 4 required, 1 40 pin and 3 16 pin. Again 
watch the orientation, there is notch at one end 
of these and this should line up with the IC{(chip) 
notch, they are clearly shown in the EPE diagram. 
See my picture below this may help. Please note 
| have put an LED in place of the Buzzer for test- 
ing purposes, the Buzzer was driving me round 
the bend while testing. Also, | have at the stage 
this picture was taken not fitted the relays either. 
As you can see the board does work, this pic- 
ture was taken with the board powered and 
being driven from my test program. 

CAUTION: THIS BOARD IS NOT MAINS RATED, SO 
DO NOT CONNECT ANY MAINS VOLTAGES DIRECT- 
LY TO THE BOARD, EVEN THE RELAYS. MAINS CAN 
AND DOES KILL. YOU HAVE BEEN WARNED. 


BSIGHINGS OF WAS 


All the required PIC software and PC Visual Basic 
based software is available free of charge from 
the EPE web site Also the source code is 
included so you see how the project works. 
Please note you may need the SerialOCX soft- 
ware also downloadable from the EPE web site, 
for the Visual Basic applications to work on your 
PC. This is due to the way some of Microsoft 
systems work, in some cases access is needed 
to be given to the serial hardware within the PC. 
If you are not going to use the Visual Basic soft- 
ware then it is not required. 

With the QL hardware, there have been over the 
years a number of options for getting external 
signals in and out of the QL. The Minerva, | think 
was the best, with the I2C serial communication 
capability. These were and as far as | know stil 
are available from Tony Firshman of TF Servi- 
ces(4), | still have and use mine. Producing extra 
inputs or outputs just means adding the appro- 
priate chip (IC). In fact up 256 |/O chips could be 
used on one serial line. Each chip having it's own 
address, selectable by setting pins high or low 
on the chips themselves. These I/O chips come 
in various types. The most useful to us are the 
parallel digita(PCF8574) and analogue (PCF 8591) 
chips. TF Services supply pre built units in their 
own cases and DIP switches for setting the 
address. The only disadvantage is you cannot 
run I2C over long distances, a metre or so is the 
limit. But we lost the ability to use I2C with emula- 
tor based systems. However all is not 
lost. The Serial I/O Controller gives us 
a 10 bit parallel inout and 10 bit parallel 
output, 4 A/Dlanalogue to digital) 
converters, of which one is connected 
to an LDR (Light Dependant Resistor), 
the second to a LM335Z temperature 
sensor The third input can measure 
_ voltages from 0 to 25 volts DC and the 
fourth measures voltages from 0 to 5 
volts DC. However these can be 
changed to take other inputs with 
simple additions and minor hardware 
changes, like, for example, a pressure 
sensor. So one has the makings of a 
weather station. 

lf you need more capability than one 
board can supply, then you can use 
more than one board, it just depends 
how many RS232 serial ports you 
have on your system. A lot of PC's 
these days do not have any RS232 
ports, however you can get fairly 
cheaply USB to RS232 converters, 
there are also parallel ones available 


as well if you only require 8 parallel outputs. QPC 
for example can support up to 8 serial ports. So 
you could have a system with up to 80 parallel 
input lines, 80 parallel output lines, 16 relays, 8 
light sensors and 8 temperature sensors and 16 
analogue inputs using 8 Serial I/O Controller 
boards. Not as many as a |2C based system but | 
think this would satisfy most people. Also the 
oscilloscope project that can be used on another 
RS232 port at the same time as the Serial !/O 
Card, the limitation being the 8 RS232 ports. 

On the Serial |/O Controller there is also an on 
board buzzer and two relays. With the tempera- 
ture sensor and the relays we have the making 


of a thermostat type control system. Using the 
QL's internal clock we can combine this with a 
time schedule. We can also log temperature and 
light information against time and create a log to 
analyse later This is using the board as 
designed, no changes required to the published 
hardware. 

In the original EPE article details are given as to 
the serial protocol to drive the board. With this 
and the listing below you should be able to get 
things going quickly. The list gives you proce- 
dures for accessing ail the features of the board, 
I/O, temperature, light (LDR), relays, buzzer and 
the A/D converters. 


100 REMark saved as win5_SerialCon_test 


110 REMark Serial I0 Controller test program 


120 BAUD 2400 

130 OPEN#5;serlir 

140 OVER 0:CLS:CSIZE 1,3 
150 FOR e%=0 TO 1023 

160 read_ldr 

170 read_temp 

180 read_anal 

190 read_ana2 

200 read_10bit 

210 set_output c% 

220 display_data 

230 drive_relay 1,0 

240 drive_relay 2,0 

250 drive_relay 1,1 

260 drive_relay 2,1 

270 drive_buzzer 0 

280 drive_buzzer 1 

290 NEXT ¢c% 

300 CLOSE#5:CSIZE 0,0:STOP 


Vi, by Ian Burkinshaw 6 Jan 2008 


900 REMark *XXXXXXKKKKKKKKKKKKKKK KKK EK KK KKK KKK ERK KKK ERR EEE 


1000 DEFine PROCedure set_output(cc%) 
1010 ¢1%=0:c2%=0 

1020 a$="a""&CHR$(8) 

1030 PRINT#5;a$; 


1040 REMark delay before sending next command 


1050 PAUSE 2 
1060 a$="a"&CHR$(cc%) 
1070 PRINT#5;a$; 


1080 REMark delay before sending next command 


1090 PAUSE 1 

1100 REMark Routine for bits 9 and 10 
1110 IF ec%=256 THEN ¢c1%=1 

1120 IF ee%=512 AND ec%<=767 THEN c1%=0 
1130 IF ec%=512 THEN c2%=1 

1140 a$="a" &CHR$(c1%) &CHR$(c2%) 

1150 PRINT#5;a$; 

1160 END DEFine set_output 


1170 REMark *XXXXXXKKKKK KEK KER KERR KKK EKER RRR RRR RR RR KK ER EK 


1180 DEFine PROCedure read_temp 
1190 a$="a"'&CHR$(1) 

1200 PRINT#5;a$; 

1210 temp$="" 

1220 read_data 

1230 temp$=a1$ 

1240 END DEFine read_temp 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 


1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 


REMark XXX XKRKKKKKKKKKKERKKERKKKKRR RRR RRR ERR KERR RRRRRR 


DEFine PROCedure read_ldr 

ag="a" &CHR$(2) 

PRINT#5; a$; 

ldrg="" 

read_data 

ldr$=ai1$ 

END DEFine read_ldr 

REMa rk 280 RR G BEE IEIEEEEIEK 

DEFine PROCedure read_anal 

a$="a"&CHR$(4) 

PRINT#5; a$; 

analg="" 

read_data 

anal$=al$ 

END DEFine read_anai 

REMark JH 33H IIE 

DEFine PROCedure read_ana2 

a$="a"&CHR$ (3) 

PRINT#5; a$; 

ana2g='" 

read_data 

ana2$=al$ 

END DEFine read_ana2 

REMark %XX XXX KKH KKH KKK KIKI KKK IKKE IER KEKE EK 

DEFine PROCedure read_10bit 

a$="a"&CHR$ (7) 

PRINT#5; a$; 

bitg="" 

read_data 

bit$=a1$ 

END DEFine read_10bit 

REMark ¥XXXXXXXKHKKKK KKK KKK HK KEKE KER KERRIER RIKER RE EER RIE 

DEFine PROCedure read_data 

REMark first syncronise to syncronisation character 'a', also will keep runing 
loop until character appears, so no PAUSE command required wait for the PIC to do 
it's job. 

REPeat loop1i 

a$=INKEY$(#5) 

IF a$="a" THEN EXIT loopli 

END REPeat loop1 

alga" 

REMark extract data until termination character '@! 

REPeat loop2 

a$=INKEY$ (#5) 

IF a$="@" THEN EXIT loop2 

al$=al$&a$ 

END REPeat loop2 

END DEFine read_data 

REMark %XXX XXX KKK KK KKK KKH KK KKK KK RIKKI KKK KIKI KI 

DEFine PROCedure display_data 

AT 0,0:PRINT "LDR Data : ";ldr$;"  " 

AT 1,0:PRINT "Temp Data : ";temp$;" uM 

REMark Next line displays the data and voltage conversion for analogue input 1, 
reads 0 to 5 VDC 

AT 2,0:PRINT "Analogue Data 1: ";anal$;" ";anai1$/204.6;" Volts " 
REMark Next line displays the data and voltage conversion for analogue input 2, 
reads 0 to 25 VDC 

AT 3,0:PRINT "Analogue Data 2 : ";ana2$;" "3;ana2$/40.92;" Volts " 
AT 4,0:PRINT "10 Bit Input Data : ";bit$;"  " 

AT 5,0:PRINT "10 Bit Output Data : ";e%;"  " 


END DEFine display_data 
REMark ¥XXXXXXXXKKKKERK KKK KKK KEE KK EKER EKER ERR ER EERE ERIE 


1840 DEFine PROCedure drive_relay(rn,nf) 
1850 a$="a"&CHR$(5) 

1860 PRINT#5;a$; 

1870 PAUSE 2 

1880 a$="a"&CHR$(rn) &CHR$(nf) 

1890 PRINT#5;a$; 

1900 END DEFine drive_relay 

1910 DEFine PROCedure drive_buzzer (nf) 
1920 a$="a"&CHR$(6) 

1930 PRINT#5;a$; 

1940 PAUSE 2 

1950 a$="a"&CHR$(nf) 

1960 PRINT#5;a$; 

1970 END DEFine drive_buzzer 


You will see from the listing that there are PAUSE 
Statements, these are very important. Since after 
sending a command to the board the PIC has to 
process the command before it can read the 
next command or command data, so you have to 
give the board time to do this. The PAUSE com- 
mand works in frames per second, in our case 
here in Europe there 50 frames per second. Or 
put another way PAUSE 1 equals 40ms, the pro- 
cessing time for most commands is about 50 ms, 
so PAUSE 2 is about right. It does not matter if 
the delay Is longer, only if it is too short problems 
occur. The other issue to take into account is that 
RS232 communication supports only 8 bits at a 
time, not ten. So for example setting the parallel 
outputs requires you to send one word, to repre- 
sent the first 8 bits then two further words that 
are either 1 or 0 as required to represent bits 9 
and 10. Look at the procedure SET_OUTPUT, 
variable ci% is bit 9 and c2% is bit 10. The IF 
Statements then sort out when they should be 
set, depending on the input variable cc%. To use 
this procedure, ‘SET_OUTPUT [variable]’, the vari- 
able can be between 0 and 1023. Note there is 
no error trapping if you exceed this value. If you 
run the program as is you should see the Serial 
lO Controllers output LED's count in a binary 
fashion. Lines 100 to 290 with procedure 
‘DISPLAY_DAIA’ are just to test and show basic 


When the QL appeared in 1984, it had a revolutio- 


nary graphics system for the time. Firstly, it could 
work on a theoretical window of 1£615 scale 
units high. That was far more than enough for 
most scientific calculations! Secondly, it could 
work on that 1E615 window outside of the 
512*256 pixel screen. This meant that you could 
drive huge plotting tables in great detail, without 
having to modify the screen view all the time. 


operation for testing and as an example. Read- 
ing data back from the board, the procedure 
‘READ_DAIA’ looks for the synchronising charac- 
ter after the required delay from sending a com- 
mand to then return data, the character which is 
‘a’ ASCIl code 97. Then the data value itself is 
sent. The data stream is terminated with the cha- 
racter *’ ASCII code 64. 

Hope that gives you some ideas and that if you 
are brave enough to try it, that you have fun. It 
may make a good school project as well. May be 
you could write an article for QL Today about 
how you use this project. Now let me get the os- 
cilloscope card going. 


Sources and References 

| have no connection with any of the organiza- 

tions below. They are just what | have used in the 

preparation of this article. 

(1) | “Everyday Practical Electronics’ magazine 
http://www.epemag.co.uk 

(2) ‘Farnell’ source of electronic components 
http://www.farnell.com 

(3) "Magenta Electronics’ source of pre-pro 
grammed PIC’s 
http://www.magenta2000.co.uk 

(4) “TF Services” source of Minerva and |2C 
products. 
http://www.firshman.co.uk 


This is because SuperBasic does not test to see 


if drawing is starting to go off-screen, but that 
means you may have to wait a long time to see 
if there is any output at all. So | decided to 
bench-mark off-screen drawing to see how it 
compares to on-screen drawing. To do that | 
decided to test within exact 2-power integer 
limits, to avoid any floating-point coercion 
overheads. Furthermore | decided to see if filling 


affected the results. To see what | found, just run 
the listing. 

With filling turned on, the time taken to comple- 
tion varies from less than 1 second to 30 se- 
conds, depending on which percentage of the 
square is off-screen. (On my machine, | am run- 
ning 1000 loops on QPC at 2.8 Ghz). For some 
reason, some squares are outlined, but not filled 
at all.. With filling turned off, those 30 seconds 
are only reduced to 21. But with a different off- 
screen percentage, a 6 second delay is reduced 
to 1, a far greater time saving. This suggests that 
the FILL algorithm is quirky. 

Surprisingly, with side 'n’ and scale ‘sc’ set at 
1E610, the maximum delay with filling is but 6 se- 
conds. This result was most unexpected, as one 
would have assumed that more time would be 
taken with greater LINE distances to cover. 

It seemed evident that in the worst case scena- 
rio, it would be advantageous to include a test to 
see if the line was going off-screen and to limit 


100 :: 


drawing to on-screen only. This was achieved by 
the IF TEST structure, which restricts the bounda- 
ries in an optimal manner. But to no avail: The 30 
second delay remains 30 seconds, meaning that 
you cannot improve such timings by adding 
SuperBasic code. Perhaps a little machine-code 
might help? 

Therefore, in conclusion, calculations are mainly 
dependant on the vertical Scale factor but | can- 
not uncover any logical explanation as to why 
there are such huge variations. But now at least 
you see that you can expect to wait a long time 
under certain configurations..So select your para- 
meters carefully, and work by trial and error when 
you write your code if you wish to optimise it. 
Please feel free to experiment with the listing. If 
you discover the logic behind these variations in 
timing, please contact the Editor so as to help 
other QL programmers to fine-tune their drawing 
code. There could be very important time 
savings to be made... 


110 REMark Off_screen_bas, by S.Poole. v3feb2008. 


120 : 


130 CLEAR: WINDOW 256,256,256,0: CLS#0: CLS: CLS#2 


140 REMark n=side length: fe=factor. 
150 n=32767: sc=256: ik=0: fl=1: test=0 
160 FOR fe=1 TO 5,10 TO 100 STEP 25 


170 FOR scl=sce*fc: PRINT#2,sc1, TIME(sc1) 


180 END FOR fc: WINDOW 256,206,0,0: STOP 


190 : 
200 DEFine FuNction TIME(sca) 
210 start=DATE: ik=ik+2: INK ik 


220 IF start=DATE: GO TO 220: ELSE start=DATE 


230 SCALE sca,0,0 
240 : 


250 REMark Only loop 50 or more times on slow machines: 


260 FOR loop=1 TO 1000 
270 IF test: IF se>256: n=se 


280 FILL fl: LINE 0,0 TO 0,n TO n,n TO n,O TO 0,0: FILL 0 


290 END FOR loop: RETurn DATE-start 
300 END DEFine 
310 :: 


** We have moved ** 
See our updated addtess details below. 


We have also acquired more brand new Sinclair QL membranes and another stock of 
Epson Stylus Colour 850 inkjet printers, so if you need a better printer for your QL, 
give us a shout. 


More news is always available on our website: www.rwapsoftware.co.uk 

We are also looking to produce some new hard disk interfaces for the ZX Spectrum 
and have a few little projects on the drawing board. 

Our websites: 

http://www. rwapservices.co.uk (General site} 

http://www. rwapsoftware.co.uk (Sinclair computer second hand and new items) 


http: //www.rwapadventures.com (Adventure Programs) 
http://www. internetbusinessangels.com (Guidance on setting up online businesses). 


New Products! 


<“/ SOUND ON @PC2U 


The wait is now over! Q-Word version 1 is finally available! 


Platforms: 
QPC/QXL, Q40/Q60, Aurora (with SGC) 


Prices: 
All versions without P-Word £20.00 
All versions with P-Word £30.00 


Notes: 

Q-Word DOES NOT require SMSQ/E with GD2 support -OR- SMSQ/E atall on 
the Aurora or Qx0 machines. It works on the highest colour depth everywhere 
regardless of Operating System. 

The Aurora version is available on either HD or ED disk. For the latter add 
£1.00 to the price. ED version is uncompressed and can be run directly from 
the floppy. All other Floppy versions are compressed. QPC/QXL version 
comes on CD, Non CD versions DO NOW support digital sound on QPC2 


for Windews 


For QLers that run Windows or with incompatible hardware for 
Talent Games, we now have re-released these adventures so that 
they can run on your Windows-equipped PC. No Emulator, 
floppies, microdrive backups etc. required, just a one-click install! 
Of course the full QL line is still available! (See side column) 


Talent Games for Windows ea. £ 10.00 
(Each Game inciudes a runtime installation of QLAY-2 by Jimmy Montesinos) 


Games Currently Available from www.rwapadventures.com 


The Lost Kingdom of Zkul 
West 

The Prawn 

Return to Eden 


Replacement Sinclair QL Keyboard Membranes 


We always have a stock of brand new Keyboard Membranes (and keyboard parts) 
for the original Sinclair QL, so if you have some keys which no longer work, just 
give us a call, 


Cast is only £18.50 plus £2.75 post and packing. 


Second Hand Items - Huge Range Available 


We stock a wide range of books, hardware and software for the Sinclair QL, Z88 and 
ZX Spectrum, including disk interfaces, memory expansion and microdrive cartridges. 
If there is anything you need - have a look at www.rwapsoftware.co.uk (or ring us 
with details of your requirements). 


We are always happy to help. 


RIVAP Servicas 


3 Dale View Court, Fulford, Stoke-On-Trent, Staffordshire ST11 9BA TEL: (+44) 1782 398143 
Website: http: //www.rwapsoftware.co.uk 
Email: sales@rwapsoftware.co.uk 


Id Favourites! 


Utilities 


SBASIC / SuperBASIC Reference Manual on CD £20.00 
Sidewriter v1.08 £10.00 
Landscape Printing (EPSON printers} 
ImageD v1.03 £ 10.00 
3D object generator 
Q-Help v1.06 £10.00 
Superbasic On-Screen help system 
Q-Index v1.05 £ 5.00 
Keyword-to-topic finder 
ProForma ESC/P2 Drivers v1.04 for ProWeSs £ 8.00 
Printer Driver 
Applications 
Flashback SE v2.03 (upgrade only) £ 5.00 
Database 
Qi. Cash Trader v3.7 £ 5.00 
Accounting/Finance 
QL Payroll v3.5 £ 5.00 
Accounting/Finance 
QL Genealogist v3.26 £ 20.00 
Genealogy 
Genealogy for Windows £ 50.00 
QL Genealogist to Windows version upgrade £ 25.00 
QL Cosmos v2.04 £ 5.00 
Planetarium 
Q-Route v2.00 £25.00 
Route Finding 
Upgrade from v1.xx £ 5,00 
Britain map v1.14 £ 2.00 
BIG Britain map (needs 2Mb) v2.03 & 5,00 
Various Britain Area maps (ask for details) ea, £ 2.00 
lreland map v1.00 £ 5,00 
Belgium map v1.01 £ 2.00 
Catalonia map v1.03 £ 2.00 
P-Word UK English Dictionary (500.000 words!) £15.00 
Dictionary 
Leisure 
Return to Eden v3.08 £10.00 
Adventure 
Nemesis MkII v2.03 £ 8.00 
Adventure 
The Prawn v2.01 £ 8,00 
Adventure 
Horrorday v3.1 £ 8.00 
Adventure 
West v2.00 £ 5.00 
Adventure 
The Lost Kingdom of Zkul v2.01 £ 5.00 
Adventure 
All 6 games above £ 25,00 
D-Day MkII v3.04 £10.00 
Strategy/War Simulation 
Grey Wolf v1.08 £ 8.00 
Graphical Submarine Simulation 
War in the East Mkil v1.24 (upgrade only) £ 5.00 
Strategy/War Simulation 
Open Golf v5.20 £ 8.00 
Sports Simulation 
QuizMaster I! v2.07 £ 5.00 
Quiz 
Stone Raider || v2.00 £ 5,00 
Arcade Game 
Hoverzone v1.2 £ 5.00 
Arcade Game 
Deathstrike v1.5 £ §.00 
Arcade Game 
Flightdeck v1.0 £ 10.06 
Flight Simulation 
Afi 6 games above (Open Golf, QuizMaster tI, Stone 
Raider li, Hoverzone, Deathstrike and Flightdeck) £28.00 


Notes on Software requirements 
The following programs have a minimum SGC card requirement: P-Word, 
Qword, Big Britain MAP for Q-Route 


From the UK Dial: 01782 398143 


{Cheques in £ sterling made payable to R. Mellor) 


One of the big problems with having the kind of 


small user base the QL and related systems have 
is that, when people come up with good ideas, 
there is not a big machine behind them to push it 
forward. When | was younger | was always sure 
that someone was stealing my ideas but, | realise 
now, that a good idea will probably be had by 
several people at the same time, all over the 
world and that they will either fail to act on it 
swiftly enough, get something very wrong in its 
execution or or just decide that it is not feasible 
or viable and abandon it thus leaving the field 
open for one of the others who has the right 
combination of ideas, drive and muscle. This may 
be why so many things come out half baked or 
just plain wrong. It is the same in software and in 
hardware and it does not, of course, stop at the 
door of the computer world. There is a famous 
Story (no doubt apocryphal) of the man who 
invented the dusting machine which would blow 
the dust off things. One of his peers in the audi- 
ence took the tube from the machine and ex- 
plained to him that all he was doing was blowing 
the dust around the room. He then proceeded to 
place the tube in his mouth and suck, removing 
the dust, inventing the vacuum cleaner and - 
incidentally - almost choking himself to death in 
the process. 

In the course of its long life the QL community 
has thrown up a few examples of this process in 
action. the RomDisq, for example, came out 
long before the, now ubiquitous, USB stick 
made its appearance and Tony's Compu- 
switch was around for at least a year before 
the first commercial models arrived. There are 
probably more examples of this but | will 
move on to the main point which is the 
EEEPG. 


EE its an EEEPC 

Just before Christmas Asus announced its 
EEEPC. In case you do not know about this 
device it is a small laptop computer - well halfway 
between a laptop and a PDA actually. The display 
is 7 inch (178 mm), measured diagonally, and it 
has a resolution of 800x480 pixels. It has no 
hard drive, CD or Floppy but comes with a 
variety of Flash Ram sizes from 2Gb to 8Gb. It 
features all of the usual PC connections - well the 
modern ones anyway - such as USB, Ethernet, 
Wireless LAN and Audio and is supplied running 


LINUX. Windows XP drivers are also provided 
although, by the time this is loaded you would 
not have a lot of room for applications except on 
the larger storage versions. 


You may won- 
der why | am 
reading out this 
advert for Asus 
here. Well there 
are two main 
reasons. Firstly, 
the whole idea 
of a small unit 
with a reaso- 
nably sized 
screen, using 
flash RAM in 
place of Hard 
drives was put forward by our very own Nasta 
some 3 years ago. It was an idea that excited a 
lot of people in the QL world because it was 
planned as a pure QL platform but, as far as | 
know, it never came to anything. The second 
reason for mentioning it here is that there was a 
discussion on the user group about running the 
QL emulation on this device. some wondered if 
QPC2 could be adapted to run under LINUX on it 
for instance and Norman Dunbar even said he 
would look into the possibility since Marcel did 
not have the time to do it. There are, of course, 


QL emulations for LINUX and | believe that a cou- 
ple of people have run these very successfully 
on the machine. | have never used any of the 
other, available, QL-emulations, having always 
been more than happy to run QPC2 so | am not 
sure of the comparative merits of each system 
but whatever emulation you choose to run on 
this it does do what many people wanted years 
ago and provide you with complete QL portabili- 
ty. This does, in fact, give you a, rather neat, QL in 
your pocket. 


One trick that many of the people who dis- 
cussed this seemed to miss (unless | am being 
woefully ignorant or optimistic here - wouldn't be 
the first time) is maybe to run DOS on the 
machine and then use QPC1. The machines have 
Celeron Processors so they should, in theory, be 
able to run DOS and then you could have an 
entire QL-laptop with nothing to get in the way, 
Whilst | realise that Marcel is now no longer a 
student and unable to devote as much time to 
the QL as he used to, maybe someone could 
take over and develop QPC1 for just this kind of 
Situation. It would certainly be a very elegant 
thing and the screen size is more than adequate 
for a basic QL operation - shame it is not slightly 
higher but you cannot have everything can you? 


Nagging 

One advantage of being stuck in the past world 
of computing is that we don't quite have the 
same degree of child safety locks on our soft- 
ware. In the days when we started out using 
computers the people who sat at the keyboards 
more or less knew what they were doing. In fact 
they absolutely had to know what they were 
doing because one false move would wipe it all 
out. This had many more advantages than dis- 
advantages, Quite simply, if you quit Archive with 
a database still open that was it. There were 
programs around that could recover part of the 
data - often in a very jumbled format - but you 
just learned that the software did not automati- 
cally close down the files neatly when you 
clicked on the quit button. this made us more 
careful users and taught us the value of backups. 
Gradually, stealthily, the computer crept out of its 
hiding place, in the back bedroom, behind a pile 
of circuit boards and old copies of Electronics 
Weekly or Wireless World. It paused at the door 
to dust itself down and adopt a new coat of 
shiny consumer product beige and launched a 
full frontal attack on your main living space. Soon 
it was sitting down to dinner with you all, 
ordering your wine and tempting you with the 
golden gateway to the wide world of the internet. 
In the course of this 25 year transition it changed 
its coat a few times and tried to oust all the older 
consumer gadgets along the way. These days 
we can listen to the radio on it, watch TV on it, 
shop on it, date on it, play music on it compose 
on it and store our whole collection of CDs, LPs, 
photos and love letters on it. What we don't do 
on it, or could, is to program it and that is what 
many of you started out wanting to do. Its new 
found status as all encompassing entertain- 


ments centre has also had the unfortunate effect 
of making it accessible to people who should not 
be let loose on a pocket calculator. 

The reason for the above diatribe is that | recent- 
ly had to set up a Windows Vista system for 
someone. Now, speaking as someone who used 
to complain to QL authors about boxes which 
popped up and said ‘Do you really want to Quit?’ 
you can imagine | found the whole thing 
annoying and deeply depressing. Here we are in 
the 2ist century and we are treating our adult 
computer users to the digital equivalent of a 
fireguard around a fireguard around a fireguard 
with a big sign at the end saying 'No user 
serviceable parts inside’. Not only that but they 
wont let you into the room with the fire in it 
because they have locked the door and hidden 
the key under Bill Gates mat. But, hey, they have 
left a couple of windows open so the hackers 
can sneak in trash the furniture. 

The rot, for most mainstream computer users, set 
in around Windows 95 and, as more and more 
people got computers and found more and more 
novel ways to wreck their systems the mighty 
wheels of Microsoft started trying to lock the 
doors to the gun cupboard to prevent the com- 
puter hillbillys shooting holes in their edifice. It is 
worse for them, | suppose, because they made 
the decision long ago that people were not able 
to configure their own systems so they made it 
so that it saves its setting when it shuts down. 
Good if you want the program to always open as 
you last left if - dreadful if you quit it because it 
was all in a mess. So now we have ‘systems for 
idiots’ that try to lock you out from doing any- 
thing at all. Maybe LINUX is the way ahead but 
they have seen the glint of a mass user base on 
the far horizon and have been making moves to- 
wards it. LINUX, from my, limited, experience any- 
way, always locked the main user out of the con- 
figuration loop but has always allowed them to 
log in as ROOT which allowed them to make all 
sorts of changes. The only trouble for me has 
been trying to find the time to learn enough 
about it to be able to make it do much. That and 
the fact that, as someone who is working in the 
mainstream computer world and who gets called 
on to be the ‘Flying Doctor’ for friends and family 
| have to deal with Windoze in its myriad disgui- 
Ses. 


Roger Godley’s new ‘thing’ 

| got a surprise disk through the post a while 
back from Roger Godley. | have mentioned him 
before in this column as the man who used to do 


the ‘cut and shut’ jobs on QLs, welding two of 
them together and performing all manner of odd 
hardware experiments in a sort of Dr Caligari 
way. He does also have a software side to him 
and he is no slouch with a bit of machine code 
either. 

On his regular visits to the UK from his home in 
Spain he has often called in to see me and, over 
the years, has shown me some of the commer- 
cial programs he has hacked to get them to do 
things in either the way he wants them to be 
done or to run on more modern systems. His 
hacked versions of Quill and Archive for bigger 
screens are available from Quanta, | believe, and 
| have seen some of his revised monitor 
programs which work very well. Unfortunately, 
because these are adapted commercial 
programs that we no longer have access to, we 
are not able to distribute them. 

His latest efforts dwell on the graphics and 
drawing area, a field where the QL is sadly 
lacking. Flagship programs like LINEdesign have 
been around for a while but are not really able to 
take advantage of the newer colour palettes 
with any ease. Page Designer 3 was abandoned 
by its author a while ago and had problems 
running on the latest systems so a new graphic 
drawing program would be a real boon. 

Roger's efforts look pretty good, as you can see 
from the screen shot. It is not pointer driven, and 
many of the older programmers have an aversion 


Space did not allow us to include my second 


article on mapping and a contribution from David 
Denham on Ram Disks. These will appear in the 
next issue. 


We have filled 58 pages again. Considering that 
this is the average size, even from the time when 
QL Today started (and in the early days, we had 
a lot more advertisers throughout the issue). We 
are happy to be able to produce issues con- 
taining even more information for you, compared 
to the past! Thank you for your help - without 
your support, QL Today would not exist anymore 
- this is addressed to both our readers and our 
authors! 


If you want to use the Just Words! data bases to 
try out Hugh Room's program here are sugges- 
tions for the approximate scalings: 


to pointer driven programs, although, in the case 
of graphics, a pointer element is essential and 
control via the mouse is preferable. One area 
where the QL has always excelled is in making 
most of its commands available as both Key- 
stroke and Pointer operated. This is available to a 
degree on a PC but how often have you found 
yourself with a locked pointer and no keyboard 
access? The current version is locked into a 1024 
x 768 definition but that can be changed. 

On the whole the program looks good - albeit a 
long way from release in this version. | look 
forward to the next disk from him. 


Editor's note: Roy has asked us to add an 
apology for the shortness of Byts of Wood in 
this issue due to recent family events. 


Australia and New Zealand: 50,'70,-55 
Austria and Switzerland: 8,4,50 
Benelux 10,-5,55 

British Isles: 20,-10,57 
Canada: 120,-120,40 

France 18,-10,45 

Germany: 15,0,53 

Greece: 10,10, 38 

Iceland: 10,-20,82 

Italy: 15,0,39 

Japan: 28,80, 30 

Seandinavia: 46,-30,60 

Spain and Portugal: 15,-15,35 
USA: 60,-100,10 


The QL Today team are currently examining the administrative, distribution and financial facilities of the 
magazine. This is to ensure the medium term future of QL Today in a climate where distribution costs 
and exchange rates are constantly changing, usually with major changes halfway through the sub- 
scription period. Many of the changes are unpredictable and we need to be in a position to react to 
them as quickly as possible. 

To understand the situation fully it is necessary to look at the current structure of the magazine. 


Although it may not be apparent to all readers the continental and UK arms of QL Today are currently 
two distinct entities with separate administration, distribution and financing. This arises from the very 
early days of the magazine where the two founding fathers were Jochen Merz and Stuart Honeyball 
of Miracle Systems. When Miracle Systems ceased trading QBranch took over the UK side of the 
operation. 

Technically UK readers who order the magazine via QBranch do not have a direct subscription to QL 
Today. Their contract is with QBranch who then buy in the copies from the publisher. 

One consequence of this is that QL Today has never had a central data base of readers and, in 
particular, did not have details of UK subscribers. We can see benefits in a central data base, and 
have now set up a simple one comprising of the names and country of our subscribers. 


We hope this data base will help us to react efficiently to an increasingly complex and changing 
world of distribution costs. 

In recent years there has been (semi-)privatisation of postal services in several countries and 
increasing competition to these services by the growth in the number of couriers. Both postal 
services and couriers are continually changing their prices, and this is not just simply by increasing 
them. There are also frequent changes in the categories of the various price and weight bands, 
which can create anomalous situations. There was a period last year, for example, when it was 
cheaper to post copies of the magazine to Dutch readers from Austria than it was from the 
Netherlands itself 

The problem is most acute with the distribution of the UK copies of the magazine. Currently these 
are shipped in bulk to England and posted to readers from there. We needed to examine whether it 
would be cheaper to post them direct from the continent. Our data base indicates that present ar- 
rangements are still the cheapest, but we cannot guarantee that this will remain so in the future. 

A further complication with the UK copies is that the UK is outside the Euro zone and is thus subject 
to currency fluctuations. In the last year the pound has seriously weakened against the Euro - a fall of 
11.4% - and most experts predict that the pound will remain weak during 2008. 

The good news is that, in spite of the rise in postal rates - in the Netherlands by as much as 14% - 
we are able to hold the present price in Euros. However the fall in the value of the pound against 
the Euro means it will cost QBranch more to buy in the UK copies from the publisher, and unfortu- 
nately this means a price rise for UK readers. We can only repeat that it is not the price of QL Today 
that has risen, but the value of the Euro against the pound. This makes the magazine appear more 
expensive. 

In spite of the rise in price for UK readers, we still feel QL Today gives good value for money. 
Editorially the magazine remains highly viable and the move to quarterly publication has made it 
easier for us to stick to our publishing schedules. We are blessed with an enthusiastic and skilled 
group of writers, and | am amazed that after nearly a quarter of a century QL-ers are still able to 
produce such a variety of original and interesting material. 

We hope you will remain with us during volume 13, and don't worry about that number. Together we 
can make it a lucky QL Today year 


& F 


OL Meetings in Eindhoven (NL) 


Saturday, 22nd of March 2008, 11:00 to 16:00 
Pleincollege St. Joris, Roostenlaan 296 


continue in 2008. Same venue as always. J-M-S plans to be there, as always. 
| The dates for the other shows are already fixed, so that you can add it to your agenda. 


Saturday, 14th of June 2008, 11:00 to 16:00 


7 

| 

| 

| 

| 

| Thanks to the organiser, Sjef van de Molengraaf, the meetings at Eindhoven also 
| 

| 

| Pleincollege St. Joris, Roostenlaan 296 
| 
| 


Saturday, 18th of October 2008, 11:00 to 16:00 
Pleincollege St. Joris, Roostenlaan 296 
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OL Meeting in Manchester (UK) 


Sat. & Sunday, 12th and 13th of April 2008 
3rd Davyhulme Scout Headquarters, ” The Endeavour”, 
Conway Road, Davyhulme, Manchester, MT41 OTE, 
This is a Quanta sponsored event, but non-Quanta 
members are welcome as well! 
Detail 19 inside this issue! 


-_ 


lease note that the 2008 shows now start at 11:00 instead of 10! 


We plan to have the next issue ready for you towards the middle or end of June - maybe for the — 
_ Eindhoven show. As always, it depends on how quickly we get reviews, articles etc. 
_ We need more material, as always. The more we get and the sooner we get it, the quicker the | 
next issue will be in your hands, and the better it will be. Hope to meet you at one of the | 
forthcoming QL shows - your QL Today Team! 


